http://www.perlmonks.org?node_id=71831

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