#!/usr/bin/env perl use strict; use warnings; use utf8; use POE qw/ Component::IRC Component::Client::HTTP Component::Client::Lingr /; use Encode; use HTML::Form; use HTTP::Request; use URI; use Path::Class qw/file/; $POE::Component::Client::Lingr::Debug = 1; my $config = { irc => { server => 'irc.freenode.net', port => 6667, nick => 'nak', channels => [ { name => '#yapc.asia', encoding => 'utf-8'