Reminds me of the snippet that I have on my home node from h0mee:

#!/usr/bin/perl

use Slack qw(:standard);

my $yeti = new Slack;

praise q{Bob};

$yeti->stark_fist('GLOBAL');
[download]

Praise "Bob" and Fuck 'Em if They Can't Take a Joke!