source: trollforge/pynchon/twat.pl @ 376 Tweet

#!/usr/bin/perl

# bot to stalk people on irc and tweet everything they say

use warnings;
use strict;

use Net::Twitter;
use POE;
use POE::Component::IRC::State;
use POE::Component::IRC::Plugin::AutoJoin;

my $irc = POE::Component::IRC::State->spawn(
        Nick     => 'jmacm',
        Username => 'jmacm',
        Ircname  => 'jmacm',
        Server   => 'irc.freenode.org',
        Port     => '6667',);

POE::Session->create(package_states => [main => [qw(_start irc_public)]]);

$poe_kernel->run();

sub _start {
        $irc->plugin_add('Autojoin',
                POE::Component::IRC::Plugin::AutoJoin->new(
                        Channels => ['#noisebridge']));

        $irc->yield(register => qw(join public));
        $irc->yield('connect');
}

sub irc_public {
        my $nick  = (split /!/, $_[ARG0])[0];
        if ($nick eq 'ioerror') {
                my $nt = Net::Twitter->new(
                        traits              => [qw/API::REST OAuth/],
                        consumer_key        => 'xxxxx',
                        consumer_secret     => 'xxxxx',
                        access_token        => 'xxxxx',
                        access_token_secret => 'xxxxx',
                );
                $nt->update("<$nick> $_[ARG2]");
        }
        return;
}