Select Code to Download

   if( $pid = fork ) {
        alarm $timeout;
        waitpid( $pid, 0 );
...
    else {
        exec( $command ) || die( "Couldn't exec $command" )
    }

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