jerkins!!! (irssi plugin)

jerkins.pl

use strict;

Irssi::command_bind jerkins => sub {
  my ($data, $server, $witem) = @_;
  return unless $witem;

  my $poo = ":poop: :persevere: :poop:";
  $server->send_raw(
    "PRIVMSG $witem->{name} :$poo http://ryanflorence.com/gifs/jenkins.gif $poo"
  );
}