use Time::HiRes qw( sleep );

my $pid = fork();
die $! if !defined($pid);

if ($pid == 0) {
    for (1..8) {
        sleep(.250) if $_ != 1;
        print(time(), "\n");
    }
} else {
    $SIG{TTOU}='IGNORE';
    sleep 1;
    kill TTOU => $pid
        or die $!;
    sleep 3;
    kill CONT => $pid
        or die $!;
    waitpid($pid, 0);
}

##</code><code>##

1260520147
1260520147
1260520148
1260520148
1260520151
1260520151
1260520152
1260520152

##</code><code>##

use Time::HiRes qw( sleep );

my $pid = fork();
die $! if !defined($pid);

if ($pid == 0) {
    for (1..2) {
        kill TTOU => 0
            or die $!
            if $_ != 1;
        for (1..4) {
            sleep(.250) if $_ != 1;
            print(time(), "\n");
        }
    }
} else {
    $SIG{TTOU}='IGNORE';
    sleep 4;
    kill CONT => $pid
        or die $!;
    waitpid($pid, 0);
}

##</code><code>##

1260520571
1260520572
1260520572
1260520572
1260520575
1260520576
1260520576
1260520576