use strict;
use File::Find;

@ARGV = ('.') unless @ARGV;
find sub { 
	print "$_: ", -s, "\n" 
}, @ARGV;