#script 1: 
        use Win32::ODBC;
        $DSN="Alex";
        $DATABASE_NAME="Edabase";


        unless ($db=new Win32::ODBC($DSN)) {
                print " Error: Cant't open database [$DATABASE_NAME] !.\n";
        exit(8);
        }
        print "database [$DATABASE_NAME] successfully opened. \n";

$ID=1234567890;
$Folder="Product";
$Webpage="B2";

 $sqlinsert ="INSERT INTO T_table VALUES($ID,$Folder, $Webpage)";

        $rc=$db->Sql($sqlinsert);
                die qq(SQL fail "$rc":), $db->Error(),qq(n) if $rc;
                
              
        $db->Close();

##</code><code>##

 #script 2:

  use Win32::ODBC;
        $DSN="Alex";
        $DATABASE_NAME="Edabase";


        unless ($db=new Win32::ODBC($DSN)) {
                print " Error: Cant't open database [$DATABASE_NAME] !.\n";
        exit(8);
        }
        print "database [$DATABASE_NAME] successfully opened. \n";

$ID=1234567890;
$Folder="Product";
$Webpage="B2";

 INSERT INTO T_table VALUES($ID,$Folder, $Webpage0;
 $db->Close();