#!/usr/bin/perl

use File::stat;
use Time::localtime;

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

chdir( "/home/sscripts/public_html/kage/" );
local( @files ) = <*.zip>;
foreach $file( @files ) {
if( !-d $file ) {
$date = ctime( stat( $file ) -> mtime);
print "$file $date<br>\n";
}
}

#unlink @files;
#Use that (somehwat) to delete the ones
#that have been existant for more than
#48 hours...