1  #!/usr/bin/env perl
   2  
   3  $prog = <<'EOF';
   4  #!/usr/bin/env perl
   5  
   6  $prog = <<'%s';
   7  %s%s
   8  
   9  printf $prog, 'EOF', $prog, 'EOF';
  10  EOF
  11  
  12  printf $prog, 'EOF', $prog, 'EOF';