foreach my $file (@userfiles) {
my $size = format_size(-s "$user{site_id}/$file");
$mtime = (stat("$user{site_id}"))[9];
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = (localtime
+($mtime));
$year += 1900;
print qq~
<tr>
<td bgcolor="#FFFFFF" align="center" width="25">
<input type="radio" name="select" value="file">
</td>
<td bgcolor="#FFFFFF" align="center" width="175">
<font face="verdana" color="black" size="1"><a href="http://
+www.webewebin.com/home/$user{'site_id'}/$file">$file</a>
</td>
<td bgcolor="#FFFFFF" align="center">
<font face="verdana" color="black" size="1"> $size</font>
</td>
<td bgcolor="#FFFFFF" align="center">
<font face="verdana" color="black" size="1">$mon-$mday-$year
+</font>
</td>
</tr>
~;
}
for some reason if I was to upload a dile to this direcotry, foreach file it would print the day that I upload it, not the original day foreach.