Select Code to Download

$ echo 123123 | wr2
123123

#!/usr/bin/perl

...

warn $err if $err;
print $out;    ## All of cat's output

#!/usr/bin/perl

...
while (<STDIN>) {
    print;
}