Select Code to Download

#!/usr/bin/perl -w
$|++;
...
);

print Dumper $sth->DBD::_::dr::FETCH("NAME_hash");

Attempt to free unreferenced scalar: SV 0x1ab0358 at C:/perl/site/lib/
+DBI.pm line 1869.
$VAR1 = {
...
        };
Attempt to free unreferenced scalar: SV 0x1ab04a8.
Attempt to free unreferenced scalar: SV 0x1ab03b8.