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