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();
[download]

You have to learn about fork-ing and managing child processes. Here's some example code:

use POSIX qw(:sys_wait_h);
sub doit {
    my $pid = fork();
    unless (defined($pid)) { die "unable to fork: $!\n"; }
    if ($pid) {  # parent
        # wait for child to finish and display waiting message
        my $start = time;
        while (1) {
            print "time spent waiting: ", time - $start, "\n";
            last if (waitpid($pid, WNOHANG) > 0);
            sleep(2);
        }
        # child process has terminated
        # read results from file
        open(R, "<results-from-child-process");
        while (<R>) { ... process results... };
        close(R);
    } else { # child
        # perform time consuming computation here.
        ...
        # leave results in some file
        open(R, ">results-from-child-process");
        print R ...;
        close(R);
        exit(0);
    }
}
[download]

thanks~ going to try this today and get back to you.

That code works for me, but it's pretty ugly.

This works nearly universally but is only good for one line:

$|=1;  # switch off buffering or this won't work
print "please wait";
do_something();
print "\rthanks for waiting\n";
[download]

Note the \r return character. You can also use the \b backspace char.

If you can rely on having an ANSI terminal you can do a lot of interesting tricks. see a quick list. Or search CPAN for ANSI and Term.

"What should it profit a man, if he should win a flame war, yet lose his cool?"