Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    print "Child.: Argh! You didn't have to spank me! ($$)\n";
    exit;
}

Parent: [tapping toe] You have 5 seconds to finish your homework (-670
+8)!
Child.: [doddling...] OK, OK, just 10 more seconds, ...please!?!
...
Child.: Argh! You didn't have to spank me! (-6708)
Parent: Well, that's over (-6708).
The end.

Parent: [tapping toe] You have 5 seconds to finish your homework (-588
+0)!
Child.: [doddling...] OK, OK, just 10 more seconds, ...please!?!
Child.: Nana-nana-na-na - all finished (-5880).
Parent: Well, that's over (-5880).
The end.