Select Code to Download

$ perl -we 'while (<>) { print }' 'fortune |'
To downgrade the human mind is bad theology.
                -- C. K. Chesterton

sub do_something {
    my ($filename, @rest) = @_;
...
    local $" = ' ';
    local $@; # we might want to use eval { }
}