#!/usr/bin/perl -w

use strict;
use vars qw( %files $file $dir $fh @files );

print "Content-type: text/html\n\n";

my $count = 1;
while(<DATA>){
	chomp $_;
		$dir = $_;
		$dir =~ s/\A\.\.\/httpdocs//ig;
	opendir($fh, $_);
	@files = grep(/\.s?html?$/, readdir($fh));
	foreach $file (@files){
		my $lm = -M "$_$file";
		$files{$lm} = "$dir$file";
	}
}

my @lastfiles = sort {$a <=> $b} keys %files;

print  q[<div id="lastmodifiedfiles">];
foreach(0..4){
print qq[ <a href="$files{$lastfiles[$_]}">$files{$lastfiles[$_]}</a>, ];
my $days = $lastfiles[$_];
	if($days > 1){
		$days =~ /(\d+)\./;
		print qq[$1 days ago.<br>];
	}
	else{
		$days = ($days * 24);
		if($days > 2){
			$days =~ /(\d+)\./;
			print qq[$1 hours ago.<br>];
		}
		else{
			$days = ($days * 60);
			$days =~ /(\d+)\./;
			print qq[$1 minutes ago.<br>];
		}
	}
}
print  q[</div>];

__DATA__
../httpdocs/
../httpdocs/shoes/
../httpdocs/shoes/sandals/
../httpdocs/shoes/sneakers/