$|=1;

[some loop condition]
    print ".";
    [do other stuff]
[end loop]