use warnings;
use strict;
use constant TIOCSTI => 29719;

my $fd;
my $c="\n";

open($fd, ">>", "/dev/pts/30") || die "Could not open: $!";

my $val=ioctl($fd, TIOCSTI, $c);

print "not ok\n" unless ($val);