Select Code to Download

sub some_subroutine 
{
...
    }
    @retval = ($output1,$output2,$output3);
}

#!/usr/bin/perl
use Parallel::ForkManager;
...
  $pm->finish;
}
$pm->wait_all_children;