use strict;


sub clear_screen {
       system("clear");
       print "wait......................\n";
}



sub doit {
     my $yahoo;
     while ($yahoo < 100) {
        clear_screen();
        $yahoo++;
     }
print "\$yahoo is $yahoo\n";
}


doit();