Select Code to Download

 
my %default_bind = ( age => 23, height => 75, birthday => undef );
my @key_order = qw( age height birthday );
...
    $rf->fetchall_arrayref;
}

sub {
    my $caller=shift;
...
        $caller->complain("Error executing this and that.");
    $rf->fetchall_arrayref;
}