POE | A basic example

Fire up a session and pass a couple events around

  #!/usr/bin/perl
  use strict;
  use warnings;

  use POE;

  POE::Session->create(
    inline_states => {
      _start => sub { $_[KERNEL]
    },
  );