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

##</code><code>##

  pp -o t -c -B t.pl