use Win32::ODBC();
my($db) = new Win32::ODBC('viniprova');
$a1='nome';
$a2='categoria';
$a3='item';
$a4='bianco';

my $query2= q! INSERT INTO vini ('$a1', '$a2') VALUES ('$a3', '$a4')!;

$db->Sql($query2);
$db->Close();
print "errore: ".Win32::ODBC::Error()."\n";