Select Code to Download

{
# file is not world readable!
    my $password = 'my_secret';
...
        # do private things
    }
}

my $val = do {
        # valuable stuff
        };