require Term::Cap;



$terminal = Tgetent Term::Cap { TERM => undef, OSPEED => $ospeed };

$terminal->Trequire(qw/ce ku kd/);

$terminal->Tgoto('cm', $col, $row, $FH);

$terminal->Tputs('dl', $count, $FH);

*****

$terminal->Trequire(qw/ce ku kd/);

*****

$row = 5; $col = 45;

$terminal->Tgoto('cm', $row, $col, STDOUT);

*****

$str = $terminal->Tgoto('cm', $row, $col);

print STDOUT $str;

*****

$count = 1;

$terminal->Tputs('dl', $count, $FILEHANDLE);  # delete one line

$terminal->Tputs('md', $count, $FILEHANDLE);  # turn on bold attribute

*****

$terminal->Tputs('DC', 1, $FILEHANDLE);  # delete one character (WRONG!)

*****

$str = $terminal->Tputs('DC', 1);

$str =~ s/%d/7/;

print STDOUT $str;        # delete seven characters

*****

require POSIX;

my $termios = new POSIX::Termios;

$termios->getattr;

my $ospeed = $termios->getospeed;

*****

require 'ioctl.pl';

ioctl(TTY, $TIOCGETP, $sgtty);

($ispeed, $ospeed) = unpack('cc', $sgtty);

