my $lf = (sort(<*>))[-1];
print $lf,"\n";