foreach $line (sort @files)
{
$temp_file = "$query/$line";
($filesize, $filedate, $perm) = (stat($temp_file))[7, 9, 2];

$perm = sprintf "%lo", ($perm & 07777);
&getdate;
($a, $b) = split(/\./, $line);
if ($b ne "")
{
print <<"__END_OF_HTML_CODE__";
$filetime $filedate
__END_OF_HTML_CODE__
}}

sub getdate {
($min, $hr, $day, $mon, $yr) = (localtime($filedate))[1,2,3,4,5]; 
if ($min < 10) { $min = "0$min"; }
if ($hr < 10) { $hr = "0$hr"; }
if ($day < 10) { $day = "0$day"; }
if ($mon < 10) { $mon = "0$mon"; }
$yr = $yr+1900;
$filedate = "$mon-$day-$yr";
$filetime = "$hr:$min:00";
}