#ex_10-4
#Learning Perl Appendix A, Exercise 10.4
while (<>) {
    chomp;
    $age = -M;
    if ($oldest_age <$age) { $oldest_name=$_; $oldest_age=$age; } } print "The oldest file is $oldest_name " , "and is $oldest_age days old.\n" ;>