Select Code to Download

    # $program is what you pass in as the Program key
    # $progargs is the array reference of arguments
...
      }
    }

my $wheel = POE::Wheel::Run->new(
  Program => [ $program ],             # changed!
...
  StdoutEvent => "stdout",     
  StdoutFilter => POE::Filter::Stream->new(),
 );

$progargs = (q{"SELECT * FROM MY_TABLE;"});