#!/usr/local/bin/perl -w # Random Conspiracy Theory generator by # originally by Scott D. Allan , 07-Feb-98 # use strict; my (@a0, @a1, @a2, @a3, @a4, @a5, @a6, @a7, @a8, @a9, @aa); map { my $arr=$_; while () { last if /^END/; chomp; push @{$arr},$_ } } (\@a0, \@a1, \@a2, \@a3, \@a4, \@a5, \@a6, \@a7, \@a8, \@a9, \@aa); srand(time ^ $<); my ($NUMBER, $CHEFS, $CREATE_A_DISH, $INGREDIENTS, $PERFECTION, $USED_OVEN, $BAKE, $SWITCH_OFF_POWER, $UNPLUG, $REMOVE_POWER, $ELECTROCUTION, $BE_CAUSE_FOR_CELEBRATION) = (int rand 667, $a0[int rand $#a0], $a1[int rand $#a1], $a2[int rand $#a2], $a3[int rand $#a3], $a4[int rand $#a4], $a5[int rand $#a5], $a6[int rand $#a6], $a7[int rand $#a7], $a8[int rand $#a8], $a9[int rand $#a9], $aa[int rand $#aa]); print STDOUT <