sub slurp {
 my $filename = shift;
 open HEYNONNYNO, $filename or die "Can't open $filename: $!\n";
 my @stuff = <HEYNONNYNO>;
 close HEYNONNYNO;
 [ @stuff ]
}