Re^2: Finding Last minute file in a directory

[John007]

Dear zwon,
I ran your code, I only have perl 5.8 version so it errored out for that and it also gave me other problems.

#!/usr/bin/perl
use Data::Dumper;
use Time::localtime;
use File::stat;
use Term::ANSIColor;    
use Net::FTP;

use warnings;

use File::Spec;
my $dirname = '.';
opendir( my $dir, $dirname ) or die $!;
my $file;
while ( $file = readdir($dir) ) {
    last if ( stat( File::Spec->catfile( $dirname, $file ) ) )[9] + 60
+ > time;
    $file = '';
}

[zwon]

The only 5.10 feature I've used is say and you can replace it by print. I recommend you to use strict as it helps to prevent some errors. Do you have any other problems with my example?