I was looking at threads to solve this issue with a neat single script, to replace the bunch of KSH scripts I now have and that are to slow, but as it seems this is not possible. (with this old perl/threads module) To bad.

Actually, it is probably quite easy to solve using even that ancient perl; given enough information about what you are trying to do.

For example:

sub thread {
    ## spawn a process to run the first command
    my $pid = open SSH, '|-', 'ssh' or die $!;

    ## send the command
    print SSH 'the first command';

    ## Sleep for a while
    sleep $timeout;

    ## if the process is still running
    if( kill 0, $pid ) {

        ## kill it
        kill 9, $pid;

        ## wait until it goes away
        sleep 1 while kill 0, $pid;

        ## Open a new ssh session
        $pid = open SSH, '|-', 'ssh' or die $!;
    }

    print SSH 'the second command';
    close SSH;
}
[download]