Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        #_stop     => \&handler_stop,
      }
  );

$poe_kernel->run();
exit;

sub handler_start {
  my ($kernel, $heap, $session) = @_[KERNEL, HEAP, SESSION];
...
  # ask for the prompt event to get run next
  $kernel->yield('prompt');
}

sub handler_prompt {
  my ($kernel, $heap, $session) = @_[KERNEL, HEAP, SESSION];
...
  # this will make the timeout event fire in 10 seconds
  $kernel->delay('timeout',10);
}

sub handler_timeout {
  my ($kernel, $heap, $session) = @_[KERNEL, HEAP, SESSION];
...
  # queue is empty resulting in shutdown
  $heap->{wheel}=undef;
}

sub handler_gotLine {
  my ($kernel, $heap, $session, $arg, $exception) = 
...
  # new prompt
  $kernel->yield('prompt');
}