Select Code to Download

my $welcome = eval { 
    pop @{ $dbh->selectcol_arrayref($query) };
}; warn $@ if $@;