sub errorhandler {
  my ($poe_args) = shift;
  if ($poe_args->{ERRNO} == 2) {
    print $poe_args->{ERROR}; 
  };
}