Select Code to Download

package SQL;
use DBI;
...
    $sth         = $dbh->prepare($sCommand);
    $sth->execute ();
}

use SQL;

...
{
    print "$_\n";
}

use SQL;
my @tables;
...
{
    print "$_\n";
}

sub PopList
{
...
    my $cboList    = shift(@_);
    PopList $cboList, "SELECT * FROM agent ORDER BY agent"
}