이빨까기인형

   use Encode qw/encode decode/; 
    $cp949 = encode("cp949", $utf8);   # loads Encode::KR implicitly
    $utf8   = decode("cp949", $cp949); # ditto

     my ($sender, $who, $where) = @_[SENDER, ARG0, ARG1];
     my ($nick, $host) = split /!/, $who;   # nick 과 호스트를 분리
     my $channel = $where->[0];              # $where는 배열 참조 
     $irc->yield( privmsg => $channel => $nick . " : Hello" );
      # 언어에서 Hello World 가 기본이듯, Bot 에서도 Hello Bot 만들기는 가장 기본적인 예제입니다.
}

     my ($sender, $who, $where, $what) = @_[SENDER, ARG0 .. ARG2 ];
     my ($nick, $host) = split /!/, $who;   # nick 과 호스트를 분리
     my $me = $where->[0];              # $where는 배열 참조 
     $irc->yield( privmsg => $nick => "What's wrong?" );
      # 이번에는 privmsg 의 대상은 채널이 아니라, 닉네임이 됩니다.
      # 귓속말 했는데 채널에 대고 떠들면 안되겠죠? 물론 인수에는 채널 정보를 얻을 수 없기도 하지만요.
}

sub irc_public {
     my ($sender, $who, $where, $what) = @_[SENDER, ARG0 .. ARG2];
     my ($nick, $host) = split /!/, $who;   # nick 과 호스트를 분리
     my $channel = $where->[0];              # $where는 배열 참조 
     $irc->yield( privmsg => $channel => $nick . " : WTF?" );
      # 건방진 봇이 되는 Lifehack
}

use POE qw(Component::IRC);

my $nickname = 'I_Like_Perl';
my $ircname = 'Bot-Likes-Perl';
my $server = 'irc.blahblahblah.irc';

my @channels = ('#perlbot_test', '#perlbot', '#perl');

my $irc = POE::Component::IRC->spawn( 
    nick => $nickname,
    ircname => $ircname,
    server => $server,
 ) or die "Oh noooo! $!";

 POE::Session->create(
     package_states => [
         main => [ qw(_default _start irc_001 irc_public) ],
     ],
     heap => { irc => $irc },
 );

 $poe_kernel->run();

 sub _start {
     my $heap = $_[HEAP];

     my $irc = $heap->{irc};

     $irc->yield( register => 'all' );
     $irc->yield( connect => { } );
     return;
 }

 sub irc_001 {
     my $sender = $_[SENDER];

     my $irc = $sender->get_heap();

     print "Connected to ", $irc->server_name(), "\n";

     $irc->yield( join => $_ ) for @channels;
     return;
 }

 sub irc_public {
     my ($sender, $who, $where, $what) = @_[SENDER, ARG0 .. ARG2];
 
     return;
 }

 sub _default {
     my ($event, $args) = @_[ARG0 .. $#_];
     my @output = ( "$event: " );

     for my $arg (@$args) {
         if ( ref $arg eq 'ARRAY' ) {
             push( @output, '[' . join(' ,', @$arg ) . ']' );
         }
         else {
             push ( @output, "'$arg'" );
         }
     }
     print join ' ', @output, "\n";
     return 0;
 }

 POE::Session->create(
  package_states => [
   main => [ qw(_default _start irc_001 irc_public) ],  # POE 상에서 어떤 상태별로 호출될 서브루틴입니다.
  ],
   heap => { irc => $irc },
 );
 $poe_kernel->run(); # POE Kernel 을 실행합니다.