Select Code to Download

my $pb = pb_fillup(<showlen>,<char>,<barlen>);

my $pb = pb_fillup(-s $file,'#',40);

print $pb->(length $_);

sub pb_fillup {
    my ($max,$char,$len) = @_;         # init look&feel
...
        return;
    }
}