Select Code to Download

#!/usr/bin/perl

...
    print "The total size of the files in $dir is "
        . sprintf("%.2f Mb", ($total/(1024*1024))) . "\n";
}

sub some_sub {
   my @results;
...
sub check {
   ... Check if the file matches. Doesn't know about File::Find ...
}