[1158]tom@margo scratch $ perl -e 'my $lf = (sort(<*>))[-1]; print $lf, "\n";'
zoom?id=aaaaaaaaaaaawax