Select Code to Download

use File::Listing qw(parse_dir);

...
   next if $type ne 'f'; # only want plain files
   print "Size of $name is $size\n";
}