#!/usr/bin/perl -w
use CGI qw/:standard/;

#print header();
do "functions/func.pl" or die $!;

my $id = param('id');
$id && $id =~ s/\W//g;
create_verif($id);