sub handler_start {
  my ($kernel, $heap, $session) = @_[KERNEL, HEAP, SESSION];

  # POE::Wheel::ReadLine gets you terminal input with command line
  # history.  whenever a line is input, the 'gotLine' event
  # will run
  $heap->{wheel} = POE::Wheel::ReadLine->new
  	(
		InputEvent => 'gotLine',
	);

  # ask for the prompt event to get run next
  $kernel->yield('prompt');
}