Select Code to Download

sub get_loc {
    ...
    my @loc = $sth->fetchrow_array();
...
        or die "Error disconnecting: $DBI::errstr\n";
    return @loc;
}