Help for this page
use File::Find; my $total_size = 0; find(sub {$total_size += -s if -f}, '.'); print $total_size, "\n";
use File::Find; my $callback; { ... $callback = sub { print ++$count, ":$File::Find::name\n" }; } find($callback, '.');
www.com | www.net | www.org
No recent polls found