Select Code to Download

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

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