Select Code to Download

#!/usr/bin/perl

...
        print "$File::Find::name ", (-s $File::Find::name);
        print "\n";
}