#!/usr/bin/perl

use LWP::Simple;
use HTML::TableExtract;

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

my $te = HTML::TableExtract->new(headers => ['Name', 'Load average']);
$te->parse($html)->eof;
my @sorted = sort { $a->[1] <=> $b->[1] or $a->[0] cmp $b->[0] } $te->
+rows;

for (@sorted) {
  print "$_->[0] has load of $_->[1]\n";
}

print "exec ssh $sorted[0][0]\n";
[download]

-- Randal L. Schwartz, Perl hacker