#! perl -slw
use strict;

my $pid = system 1, 'perl', q[ -E"sleep 600; say 'Done!'"];
sleep 30;
kill $pid, 2;

## rest  of program