sub runnewproc {
$pid = fork();
if ($pid == 0) {
   system("$_[0]");
} else {
    sleep 1; 
    kill $pid;
}
}