DB<6> print join "\n", grep { -M $_ < 50 } glob ("Old_PL_programs/*.*");
Old_PL_programs/ack_nomem.pl
Old_PL_programs/fringe.pl
Old_PL_programs/khalou2.pl