#!/usr/bin/perl

my $directory = '/home/userrig/testing/';
opendir(DIR2, $directory) or die "Can't open $directory: $!";
@files = grep {/\.txt$/i} readdir(DIR2); #get txt files only
closedir(DIR2);
@sorted = sort {-M "$directory$a" <=> -M "$directory$b"} @files; #sort them by modification date most recent to least recent
print "The most recent modified file is: $sorted[0]";