#!/usr/bin/env perl -w

use strict;
use IO::Pty;

my $master = new IO::Pty;
my $slave  = $master->slave();

my $pid = fork();
die "Couldn't fork: $!" unless defined $pid;

if ($pid) {
    $master->close_slave();

    while ( !$master->eof ) {
        my $line = $master->getline;
        chomp $line;
        print "TIME: " . localtime() . " OUTPUT: " . $line . "\n";

        if ( $line == 3 ) {
            $master->print("2\n");
            $master->print("4\n");
            $master->print("6\n");
        }
    }
    wait();
}
else {
    $master->close();
    $master->make_slave_controlling_terminal();

    $slave->print("1\n");
    $slave->print("3\n");
    $slave->print("5\n");
}