Select Code to Download

#!/usr/bin/perl -w

...
{
    print qq(    SOURCE:$source\n);
}

    DBI 1.13-nothread dispatch trace level set to 2
    -> DBI->install_driver(ODBC) for perl=5.00405 pid=29564 ruid=500 e
+uid=500
...
    -> DESTROY in DBD::_::common for DBD::ODBC::dr (DBI::dr=HASH(0x816
+ec8c)~INNER)
    <- DESTROY= undef during global destruction.
DRIVER:ODBC