Select Code to Download

#!/usr/bin/perl

...
    local $foo = 99;  # package variable, dynamically scoped
    func();           # -> 99
}