#! /usr/bin/perl

use strict;
use warnings;
use File::stat;

my $dir = $ARGV[0] || "./";
my ($time1, $time2, $returnname);

opendir (DIR, $dir) or die "Cannot open $dir: $!\n";
while( my $file = readdir( DIR ) ) {
	next if $file =~ /^\./;
	my $sb = stat($file);
	$time2 = $sb->mtime;
	if ($time2 > $time1) {
		$time1 = $time2;
		$returnname = $file;
	}
   #printf "File is %s, size is %s, mtime %s\n", $file, $sb->size, $sb->mtime;
}

print "Newest file is $returnname\n";