i'd use curses. however, unfortunately, the Curses module is barely documented, so it'll be hard to use for someone who isn't already familiar with curses (and even so, the module makes changes that aren't documented). also, it's not a standard module, so perl -MCPAN -e'install Curses' in order to run this example.

#!perl -l

use strict;
use warnings;
use Curses;
use Time::HiRes qw(usleep);

initscr();

my ($winh, $winw, $winx, $winy, $line) = qw(10 80 0 0);
my $win = newwin($winh, $winw, $winx, $winy) or die $!;
$win->scrollok(1);

for my $n (0 .. 100) {
    $line = $n > $winh ? $winh : $n;
    $win->move($line, 0);
    $win->addstr("line#$n\n");
    $win->refresh();
    usleep 10_000;
}

endwin();
[download]