Somewhat off-topic here, because the question is about web based solutions, but if you ever need to implement a progress bar on the command line, use Smart::Comments:
use Smart::Comments;
for my $j (1..500) { ### Compiling===[%] done
select undef, undef, undef, 0.01;
}