如何使用 Perl 判別資料夾內最新的檔案及當有新的檔案進來時，移動到另一個資料夾？

ssaa

#!/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 ]" );