Select Code to Download

sub my_grep(&) { ... }
sub my_pop(\@) { ... }

my $sth = $dbh->prepare("SELECT id,name,age FROM foo");
$sth->execute();

...
{
     $self->some_function(@$row);
}