Select Code to Download

my $res = $dbh->selectcol_arrayref( $query );
unless( defined $res ) {
  die "Error executing '$query': ", $dbh->errstr, "\n";
}
my $welcome = pop @{ $res };