Select Code to Download

use warnings;
use strict;
...
$dbsql->do(q{insert into foo VALUES (1,'hello')});
my $ra = $dbsql->selectall_arrayref('select * from foo');
print Dumper($ra);

use warnings;
use strict;
...
=cut

print "hello, world!\n";