#!/usr/bin/perl

use File::Find;
$rootdir = "testdir";

find(sub
 { if (-f) {
 $file = $File::Find::name;
 $dir = $File::Find::dir;
 ($size,$date) = (stat _)[7,9];
 $sz = -s _;
 $file =~ s/$dir\///g;
 $dir =~ s/\//\\/g;
 print "file:$file\ndir:$dir\nsize1:$size\nsize2:$sz\ndate:$date\n";
}}, $rootdir);