use CGI ':standard';
use strict;
use CGI::Carp qw/fatalsToBrowser/;
use File::Spec::Functions;

opendir( FILES, "pending" ) || die "Cannot opendir /some/path: $!";

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

print "<TABLE BORDER=1>\n<TR><TH
align=left>Files</TH><TH
align=left>Last Modified On</TH>

</TR>";

my $files;
my $mod;

while ( $files = readdir(FILES) )
{

	$mod = ( stat( catfile( 'pending', $files ) ) )[9];
	$mod = localtime($mod);

	# href will have path to new cgi
	print "<TR><TD><a href=createhtml.cgi?filename=" . $files
		. ">$files</a></TD><TD>$mod</TD>
	</TR>";
}
print "</TABLE>";

closedir(FILES);

sub Error
{
	print "Content-type: text/html\n\n";
	print "The server can't $_[0] the $_[1]: $! \n";
	exit;
}