Help for this page

Select Code to Download

Select or download this

use IPC::Open2 qw( open2 );

...
   waitpid $pid, 0;
   return $.;
}