use DBI;
my $connect_string = "driver={SQL Server};app=ProvolonePiccante;Server=100.100.100.100;Database=TEST;UID=usrTEST;PWD=pwdTEST";

my $dbh = DBI ->connect ( "DBI:ODBC:host=localhost;$connect_string" )||die;
my $str="INSERT INTO usrTEST.test_table(\'id_oggi\') VALUES (\'111111\')";
$sth = $dbh->prepare($str);
$sth->execute ;