use Fcntl qw/:DEFAULT/;
use IO::Termios ();
use IO::Stty ();

sysopen my $fh, '/tmp/fakepty', O_RDWR or die "sysopen: $!";
my $handle = IO::Termios->new($fh) or die "IO::Termios->new: $!";
$handle->set_mode('4800,8,n,1');
IO::Stty::stty($handle, qw/ raw -echo /);

my $tosend = "Hello, World!\n";
$handle->syswrite($tosend)
	== length($tosend) or die "syswrite";

for (1..3) {
	my $toread = 1;
	$handle->sysread(my $in, $toread)
		== $toread or die "sysread";
	print "Read $_: <$in>\n";
}

$handle->close;