Select Code to Download

use Term::Cap;

$OSPEED = 9600;
...

$terminal = Term::Cap->Tgetent({OSPEED=>$OSPEED});
$terminal->Tputs('cl', 1, STDOUT);

$clear = `clear`;
while (1){
    print $clear;
...
    sleep 1;
    $l++;
}