#!/usr/bin/perl -w

use strict;
use Data::Dumper;
use Date::Format;
use File::stat;


my $directory=$ARGV[0];
if(not defined($directory)) {
  print "I need a directory argument\n";
  exit;
}
if(not -d $directory) {
  print "No such directory: $directory\n";
  exit;
}

# remove trailing slash if there is one
$directory=~s|/$||;

my $last_time=0;
my $last_file='';

&find_most_recent_time_in_directory($directory);
my $pretty_time=time2str('%Y-%m-%d %H:%M:%S',$last_time);
print "$pretty_time $last_file\n";

#
# finds the most recent tme in the directory
#
sub find_most_recent_time_in_directory {
  my $directory=shift;
  foreach my $file (`ls $directory`) {
    chomp $file;
    my $full_file="$directory/$file";
    if(-f $full_file) {
      my $sb = stat($full_file);
      my $mtime=$sb->mtime;
      if($last_time < $mtime) {
        $last_time=$mtime;        
        $last_file=$full_file;
        next;
      }
    }
    if(-d $full_file) {
      &find_most_recent_time_in_directory($full_file);
    }
  }
}