#!/usr/bin/perl

use strict;

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

opendir( DIR, $dir ) or die "opendir $dir failed: $!\n";

my @newfiles = grep { -f "$dir/$_" && -M _ < 0.000694445 } readdir DIR;

printf( "Found %d new files at %s\n", scalar @newfiles, scalar localtime );
print "  " ,   join( "\n  ", @newfiles ) . "\n" if ( @newfiles );