#!/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 = '';
}