Select Code to Download

>perl -wMstrict -le
"print F();
...
 INIT { my $y = X();    sub F { return $y } }
"
foo