Hi.
I was trying some experiments with File::Find.
I found that this code does not work properly,
showing only sizes of files in the current
directory.
#!/usr/bin/perl
use strict;
use File::Find;
find \&wanted, "./";
sub wanted {
print "$File::Find::name ", (-s $File::Find::name);
print "\n";
}