My Ass Is A Pundit

And it's probably as interesting as any other warblog.



#!/usr/bin/perl -w
use strict;

my @nouns = ('President Bush', 'Saddam Hussein', 'The Attack on America', 'Pentagon officials', 'Republicans', 'Democrats', 'The Senate race', 'The Bush campaign', 'The liberal media', 'Ariel Sharon', 'Al Qaeda', 'Anil Dash', 'Israeli military');
my @opinions = ('sucks', 'rules', 'is good', 'is evil', 'offends me and my loyal readers');

for (1..50) {
my $noun = $nouns[rand @nouns];
my $opinion = $opinions[rand @opinions];
print "$noun $opinion.\n";
}