Select Code to Download

  print 'STDERR', "I like pie.\n";

  grep {$x eq $_ } 'STDIN', 'STDOUT', 'STDERR'

    sub foo {
      my ($code, $serial, $location) = @_;
      print "X", $code, "-", $serial, ": $location\n";
    }