#!/usr/bin/perl

use File::Copy;

if ( @ARGV != 2 )
{
print "Usage: $0 <from_directory> <to_directory> \n\n";
exit 1;
}

my $latest_file = '';

opendir( DIR, "$ARGV[ 0 ]" );

while ( $file = readdir( DIR ) )
{
next if $file =~ /^\.\.?$/;
$file_time{ $file } = -C $file;
foreach ( keys %file_time )
{
$latest_file = $file if -C $file < $file_time{ $_ };
}
}

move ($latest_file, "$ARGV[ 1 ]" );