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