Начните с Term::ProgressBar, если что-то не устраивает гляньте в его сорцы :)

>как в perl скрипте нарисовать прогресс бар (что-то типа того что рисует
>wget или ftp)
>т.е. грубо говоря, много раз писать в одно и тоже место на
>экране

$|=1;
do{ print prog_bar( $_, 100, 25, '=' ); select(undef,undef,undef, .1) } for 1..100;
sub prog_bar {
   my ( $g, $t, $w, $c ) = @_;
   $w ||= 25;
   $c ||= '=';
   $n_w = length $t;
   sprintf "|%-${w}s| Got %${n_w}s bytes of %s (%.2f%%)\r", $c x (($w-1)*$g/$t). '>', $g, $t, 100*$g/$t;
}

Не помню откуда.

>как в perl скрипте нарисовать прогресс бар (что-то типа того что рисует
>wget или ftp)

Не на перле, но на bash+awk для коллекции :), пару дней назад на planet.debian.net было:
http://chris-lamb.co.uk/2008/01/24/can-you-get-cp-to-give-a-.../

>т.е. грубо говоря, много раз писать в одно и тоже место на экране

Как-как, не перевод строки "говорить", а возрат каретки и переписывать всю строку. Или esc-последовательностями курсор двигать и не всю строку переписывать, но это хлопотнее намного.