#!/usr/bin/perl

use strict;
use File::Spec;

my $Usage = "Usage: $0 pathname\n";
die $Usage unless ( @ARGV == 1 and -d $ARGV[0] );

my $path = shift;
opendir( D, $path ) or die "$path: $!\n";

my %files;
for my $file ( grep !/^.{1,2}$/, readdir D ) {
    my $filepath = File::Spec->catfile( $path, $file );
    my $file_age = -M $filepath;
    $files{$file_age} = $file;
}

my @age_order;
push @age_order, $files{$_} for ( sort {$a<=>$b} keys %files );

print "Newest file in $path is: $age_order[0]\n";