#!/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';