$q = new CGI;
print 	$q->header,
...

##</code><code>##

$dbh = DBI->connect('dbi:ODBC:fax',$user, $passwd, 
{ RaiseError => 1, AutoCommit => 1 }) or die "Non riesco a connettermi!!\n";
$in=$dbh->prepare("INSERT INTO $tabella(NumPratica) VALUES ('3456337');");
$in->execute();
$dbh->disconnect();