perl -e 'my $lf = (sort(<*>))[-1];print $lf'