Select Code to Download

#!/usr/bin/perl
#
...
    print $objRS->Fields('TABLE_NAME')->{value} . "\n";
    $objRS->MoveNext();
}

use strict;
use warnings;
...
while (my $href = $sth->fetchrow_hashref()) {
    print $href->{TABLE_NAME} . "\n";
}