defined( my $cpid = fork) or die $!;
        $cpid or exec $command;
        alarm $timeout;
        waitpid( $pid, 0 );
        alarm 0;