Help for this page
#!/usr/bin/perl ... print "$File::Find::name ", (-s $File::Find::name); print "\n"; }