Select Code to Download

#!/usr/bin/perl
use DBI;
...
$dbhq->execute();

print Dumper($dbhq->fetchall_arrayref());

...
my $query = qq{
select * from blah_table where col1 = :p0
...
...
my @args = ('foo_param0', 'foo_param1');
...