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

# how does it feel to play the fool?

my $YAWPS = qw ( Yet another Witty Perl Script );
my @writeUps = qw (Various Utterings and other such YAWPS);
foreach my $effort(@writeUps) {

if ($effort eq $YAWPS) {

my $reputation++;

} else {

my $reputation--;

}
}

print "Either Way, I Have Fun Making You Lot Laugh\n";
[download]