Select Code to Download

use IO::Termios ();

...
    print {$handle} "Three!\n" if /3/;
}
close $handle;

  # connect the fake pty to a process that generates output
$ socat pty,raw,echo=0,link=/tmp/fakepty \
...

  # connect the fake pty to the current terminal
$ socat pty,raw,echo=0,link=/tmp/fakepty -,icanon=0,min=1

use Fcntl qw/:DEFAULT/;
use IO::Termios ();
...
}

$handle->close;