Help for this page
my $debug = 0;
my $usage = "Usage: $0 [-d|-h] month start end\n blah blah";
die $usage unless ( @ARGV == 3 ); # could add more conditions...
my @greps = qw(\string\1
Throwing nuclear weapons into the sun
Making everybody on Earth disappear
A threat from an alien with a mighty robot
A new technology or communications medium
Providing a magic fish to a Miss Universe
Establishing a Group mind
Results (172 votes). Check out past polls.