Select Code to Download

perl -e 'my $foo = \*STDOUT; print $foo "Foo!$/"'

my %platfile = (
    NT => 'nt.html',
...
      or die $!;
    # ...
}