my $wheel = POE::Wheel::Run->new(
  Program => [ $program ],             # changed!
  ProgramArgs => \@progargs,

  StdinEvent => 'stdin',
  StderrEvent => 'stderr',
  StdoutEvent => "stdout",     
  StdoutFilter => POE::Filter::Stream->new(),
 );