Select Code to Download

#!/usr/bin/perl

...
        %player_said,
        $round
    );

# if you put a __DATA__ block at the end of your code you can
# read from it like this.  for your purposes you will want
...
Fred,76543,seat:1,spoke:3,question:1,that's enough,0,0,0,0,question:2,
+its all over when the fat lady sings,foo,0,0,0
Nynke,76543,seat:2,spoke:1,question:1,LaLaDiLa,0,0,0,0,question:2,ik h
+ou van patat,0,I'm back,0,0
Jan,76543,seat:3,spoke:2,question:1,0,he's behind you,0,0,0,question:2
+,0,that's enough,dag lieferds,0,0