Select Code to Download

        if(defined($_[0])) {
            ...

BEGIN {
    *CORE::GLOBAL::open = sub (*;$@) {
...
print $fh "hello";

print $buf;   # prints "hello"