progress bar example via Perl