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

##</code><code>##

$clear = `clear`;
while (1){
    print $clear;
    $time = localtime();
    print "$time\n";
    sleep 1;
    $l++;
}