#!/usr/bin/perl
use Data::Dumper;
use Time::localtime;
$year = (localtime -> year) + (1900);
$mon = (localtime -> mon) + (1);
$mday = localtime -> mday;
$hour = localtime -> hour;
$min = (localtime -> min) ;
opendir (DIR, $directory) or die $!;
	while (my $file = readdir(DIR)) {
         if ($file =~ /^\w{10,16}(.txt)$/i ) {
          $filename = $1; 
if (($year == $fyear) && ($mon == $fmon) && ($mday ==  $fmday) && ($hour == $fhour) && ($min == ($fmin + 1))) {
$myfile = $filename;
}
}
}