Help for this page
#!/usr/bin/perl ... undef $sth; $dbh->disconnect();
#!/usr/bin/perl -w ... my$dbh1 = DBI->connect("dbi:ODBC:DRIVER={SQL Server};Server=abc.cde.co +rp.org\\XYZ;Database=TEST;UID=$user;PWD=$password");