#!/usr/bin/perl -w
# the arse script, completely ripped off from the meme script!
# lets have a yay for blatent code rape!

@responses = qw(Fucksocks Cuntymints);
$response = $responses[rand(@responses)];
print $response . "!\n";
