Using perl to get newest file in folder


$iisdir = '\\\\myfolder\\subfolder\\';
opendir LOGS, "$iisdir" or die "Directory error for IIS LOGS: $!\n";
my @files = grep /\.txt$/, readdir LOGS;
@files = sort { -M $a <=> -M $b } @files;
$active_log = $files[-1];
print "active log: $active_log\n\n";