Try this:

use strict;
use File::Find;

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

Hope this helps,
Jeff (trembling at posting after merlyn)