require "ioctl.ph";

    # probably /usr/local/lib/perl/ioctl.ph

*****

require 'ioctl.ph';

$getp = &TIOCGETP;

die "NO TIOCGETP" if $@ || !$getp;

$sgttyb_t = "ccccs";            # 4 chars and a short

if (ioctl STDIN, $getp, $sgttyb) {

    @ary = unpack $sgttyb_t, $sgttyb;

    $ary[2] = 127;

    $sgttyb = pack $sgttyb_t, @ary;

    ioctl STDIN, &TIOCSETP, $sgttyb

        or die "Can't ioctl TIOCSETP: $!";

}

