#!/usr/bin/perl -w
use warnings; use strict;
my ($logdir) = '../demo';
opendir LOGDIR, $logdir or die "Cannot open $logdir: $!";
my @fileList = grep !/^\./, readdir(LOGDIR); closedir LOGDIR;
my @unsorted = map { [ $_, (stat "$logdir/$_")[7,9] ] } @fileList;
my @sorted = sort { $a->[2] <=> $b->[2] } @unsorted;
print "content-type:text/html\n\n";
print <<"HTML code";
$sorted[-2][0]
HTML code
1;