Select Code to Download

#!/usr/bin/perl -w
use strict;
...
[child] fileno(STDOUT) finally:   1
r = <<foobar>>
FOO still working