#----------------------------- |
use Term::Cap; |
$OSPEED = 9600; |
eval |
{ |
require POSIX; |
my $termios = POSIX::Termios->new(); |
$termios ->getattr; |
$OSPEED = $termios ->getospeed; |
}; |
$terminal = Term::Cap->Tgetent ( {OSPEED=> $OSPEED } ); |
$terminal ->Tputs ( 'cl' , 1, STDOUT ); |
#----------------------------- |
system ( "clear" ); |
#----------------------------- |
$clear = $terminal ->Tputs ( 'cl' ); |
$clear = `clear`; |
#----------------------------- |
print $clear ; |
#----------------------------- |