use LWP::Simple;
    my $user = shift or die "usage: $0 <username>";

    $_ = get "http://www.efd.lth.se/loginload.shtml"
        or die "Cannot get!\n";

    my $re = '<TR ALIGN=center>' . ('<TD>\s*([^<]+)</TD>' x 6) . '</TR>';

    my($load, $host);
    while (/$re/g) {
        $host = $1, $load = $5 if !defined $load || $5 < $load;
    }

    print "Host $host has load of $load\n";
    exec("ssh $user\@$host.efd.lth.se")
        or die "Can't exec ssh: $!";