# ex_10-4 # Learning Perl on Win32 Systems, 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";