#!/usr/local/bin/perl

use POSIX;
use Term::Cap;

# General terminal line I/O
my $termios = new POSIX::Termios;
$termios->getattr;

# Extract the entry of the terminal type
my $term = Term::Cap->Tgetent( { OSPEED => $termios->getospeed } );

# clear
$term->Tputs('cl', 1, STDOUT);