Select Code to Download

my $module = MyModule->new() ;
...
...
   $module->process() ;
}
....

use IPC::Open2 ;
....
sub process {
...
   ..
  return @output ;
}

print STDOUT "....." ;

open OUT,">>", \$out ;
select OUT; $| = 1 ;