Hi, This is wat I'm doing... but its not working :-(
find (\&wanted,"$Root"); print OUT ' </table> <p> </p> </body> </html>'; sub wanted() { if (-d $File::Find::name) { return; } $file = $File::Find::name; $file =~ s/\//\\/g; $st = stat($file); $size = $st->size; $size = ($size/1024)."KB ($size bytes)"; $time = scalar localtime $st->mtime; -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]