{
        my $bar=qq{0%..........50%..........100%};
        $|=1;
        sub bar {
                local $_=$bar;

                substr($_, $_[0]/100*length($_), 1)="|";
                print "$_\r";
        }
}