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

##</code><code>##

perl -e 'my $foo = (stat("myfile"))[7];print $foo'