use Perl::Squish;
my $transform = Perl::Squish->new;
$transform->file('uncompressed.pl' => 'compressed.pl');