8 lines
124 B
Plaintext
8 lines
124 B
Plaintext
use File::Find;
|
|
use strict;
|
|
|
|
find( \&printer, @ARGV );
|
|
|
|
sub printer {
|
|
printf("%s %d\n", $File::Find::name, -s);
|
|
} |