Select Code to Download

Select or download this
```
say "Hello World!";
```
Select or download this
```
pugs hello.p6
```
Select or download this
```
Hello World!
```

# tsanta.pl. Santa Claus golf game test program.
use strict;
...
CheckWc($wc);
PrintGolfScore($head, $tail, $rev, $mid, $wc);
print "Hooray, you passed.\n";

Select or download this

*** Eugene van der Pijll: 89 (11 19 13 25 21) ***
--- head.pl ---------------------------------------------
...
$_=$1while/.^(.+)^/ms
--- wc.pl   ---------------------------------------------
printf"%010d\n",$.,<>

Select or download this

--- head.p6 ---------------------------------------------
my$h=open@ARGS[0];print(($h.readline())[0..9])
...
my$h=open@ARGS[0];my@l=$h.readline();
my$i;for(@l){++$i}
say join"",(split"",int(7e10+$i))[1..Inf];

Select or download this

You shot a round of 398 strokes.
file1: running: 'pugs head.p6 in.tmp'...done (rc=0).
...
file21: running: 'pugs wc.p6 in.tmp'...done (rc=0).
You shot a round of 398 strokes.
Hooray, you passed.