open (fh,"read.txt");
         while(<fh>){
           chomp;
           @columns = split('\\t',$_); <BR><BR>

           #.....You prepare the insert into statement and execute it with the @columns with error checking and close the database's handle.....
           #to know more about the module you have installed that you are using for the Database's connectivity to SQLServer , you have to have <B> perldoc -m themodulename</B> or if you have not installed a module first install a module (many in CPAN) and then instantiate , prepare and execute and finish the inserts to the database's schema 


         }