Select Code to Download

use Data::Dumper;
$Data::Dumper::Indent = 0; # no spaces tabs or other fluff
...
    eval {$saved}
    return $VAR1 ? $VAR1 : {};
}

sub selectrow_array { my $dbh = shift;
    my $query = shift;
...
    return my_custom_error_handler("selectrow_array $query") if $@;
    return @result;
}