view release on metacpan or  search on metacpan

script/perl-gzip-script  view on Meta::CPAN

EOF

my $content = File::Slurper::read_binary($script);
my $content_gzip = Gzip::Libdeflate->new(level => 12)->compress($content) or die;
$out->print($content_gzip);

exit if !$in_place;

$out->close;
my $mode = (stat $script)[2];
chmod $mode, $out->filename;
rename $out->filename, $script or die $!;
$out->unlink_on_destroy(0);