Как мне получить PID процесса, порожденного системной функцией Perl?

Я пишу сценарий Perl (скажем, script.pl ), который вызывает другой сценарий newscript.pl . Я хочу получить PID обоих скриптов только в script.pl . Я могу получить PID script.pl , используя следующий код

my $pid = Unix::PID->new();
my @p = $pid->get_pidof( $pid->get_command($$), 1 );

После этого я вызываю system для выполнения newscript.pl

system("perl newscript.pl");

Я хочу захватить PID сгенерированный этим newscript.pl в script.pl .