#!/usr/bin/perl

require 'sys/ioctl.ph';
$sgttyb_t = "ccccs";            # 4 chars and a short
if (ioctl(STDIN, &TIOCGETP, $sgttyb)) {
	@ary = unpack($sgttyb_t, $sgttyb);
	$ary[2] = 127;
	$sgttyb = pack($sgttyb_t, @ary);
	ioctl(STDIN, &TIOCSETP, $sgttyb)
		|| die "Can't ioctl TIOCSETP: $!";
}
