my $recent = ( sort @ARGV )[ 0 ];