Select Code to Download

use List::Util qw(sum);
use Scalar::Util qw(looks_like_number);
...
sub sum_of_incremented_nums {
    return sum(map{$_+1} grep {looks_like_number($_)} @_);
}

./projectdir
            \
...
             - projectdir/t/
             - projectdir/xt/
             - projectdir/README

#!/usr/bin/env perl

...

use MyModule;
...