use slack;

[thabenksta]

#!/usr/local/bin/perl -w
use slack;

$hurry++;
if ($project{'completiontime'} < $project{'estimate'}) {
    $bonus++;
} else {
    die "canned";
}
if ($project eq 'complete') {
    my $schedule = '';
    my $activity = slack::new('IRC');
    $activity->start('/join #perlmonks');
} else {
    my $schedule = 'full';
    while (my $boss != 'looking') {
        my $activity = slack::new('IRC');
        $activity->start('/join #perlmonks');
    }
}

thabenksta

my $name = 'Ben Kittrell';
$name=~s/^(.+)\s(.).+$/\L$1$2/g;
my $nick = 'tha' . $name . 'sta';

[redmist]

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');

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

redmist
Silicon Cowboy