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