view release on metacpan or  search on metacpan

script/penchmarks  view on Meta::CPAN

        },
        bar => sub {
            $x**5;
        },
    };
};

_BENCHMARK_

    my $perm = (stat $fh)[2] & 07777;
    chmod($perm | 0700, $fh) or die $!;

    close $fh;

    print "OK. Generated $file_path.";
}