if ( $mtime < $time ){
print "$_\n";
}