Select Code to Download

#!/usr/bin/perl --
use strict; use warnings;
...
    my $name = path( $fp )->basename;
    dd( $fp, $name );
}

#!/usr/bin/perl --
use strict; use warnings;
use Data::Dump qw/ dd /;
...

$ perl file-find-rule-pimperator.pl
["file-find-rule-mindepth-maxdepth/q/6.txt"]