Select Code to Download

WriteMakefile(
    ...
    BUILD_REQUIRES => { "DBD::Sqlite" => 0 },
    ...
);

#!/usr/bin/perl -T

...
}

...

use DBI qw( );

...
while (my $row = $sth->fetch()) {
    print("$row->[0]: $row->[1]\n");
}

1: foo
2: bar