sub BEGIN {
    use warnings;
    use strict 'refs';
    require 5.01;
}
use warnings;
use strict 'refs';
BEGIN {
    $^H{'feature_say'} = q(1);
    $^H{'feature_state'} = q(1);
    $^H{'feature_switch'} = q(1);
}
die "No file names supplied!\n" unless @ARGV;
my $oldest_name = shift @ARGV;
my $oldest_age = -M $oldest_name;
foreach $_ (@ARGV) {
    my $age = -M $_;
    ($oldest_name, $oldest_age) = ($_, $age) if $age > $oldest_age;
}
printf "The oldest file was %s, and it was %.1f days old\n", $oldest_name, $oldest_age;