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);