Select Code to Download

my $compress = do {
    my $previous;
    $compress = sub ($x) { ... }
};

my $compress = do {
    my $previous;
...
    my $previous;
    $compress = sub ($x) { ... }
}