In Perl, you can just {local $SIG{'TERM'} = 'IGNORE'; kill 15, -$$}, which should achieve the same thing without forking, since kill with a negative process ID sends it to the whole group.