Select Code to Download

  #!/usr/bin/perl
  use strict;
...
  use diagnostics;
  
  print "foo\n";

  pp -o t -c -B t.pl