Try this:

#! perl
use strict;
use Win32::Console;

my $cons = new Win32::Console( STD_OUTPUT_HANDLE );

$cons->Cls;

$cons->WriteChar( 'Downstream: 0    Upstream: 0', 12, 3 );

my( $up, $dn ) = (0) x 2;

for ( 1 .. 1000 ) {
    Win32::Sleep 100;
    $cons->WriteChar( $up += int rand 100, 24, 3 );
    $cons->WriteChar( $dn += int rand 100, 40, 3 );
}
[download]

Obviously this won't work on *nix. You might find Win32::Console::ANSI makes it easier ot write a portable script.

wow, using Win32::Console::ANSI as suggested, this is EXACTLY what i need...i can even throw in some coloring too!

On unix, Curses will do that.

Often, you can print "\r" to return to the start of the line and overprint the current data with a whole new line.

hmm, in win2k, \r prints an undistinguishable character and wraps to the next line....and \b doesnt even print.