Select Code to Download

sub get_account_status {
    my ($account_num) = shift;
...
    my $status = $sth->fetchrow_array;
    return uc($status);
}

$sth->finish;