sub get_loc {
    chomp $_[0];
    my $dbh = DBI->connect("DBI:mysql:tracker:12.34.56.78", 'myuser', 'mypassword'
)
        or die "Connect to database failed: $DBI::errstr\n";
    my $sth = $dbh->prepare("SELECT location FROM servers WHERE name=? LIMIT 1")
        or die "Couldn't prepare statement: $DBI::errstr\n";
    $sth->execute($_[0]);
    return my @loc = $sth->fetchrow_array();
    $sth->finish;
    $dbh->disconnect
        or die "Error disconnecting: $DBI::errstr\n";
    }