I'm not sure there is a way outside of a keyboard interrupt (SIGINT) or alarm. "Safe" signal handling of Perl 5.8 may even prevent that. That's because system suspends your program until it returns, so you don't have the child pid, or the opportunity to use it.

For more control, use fork or open.