print "I am doing something...";
print "done";

##</code><code>##

print "I am doing something";
for (my $i=0; $i<10; $i++) {
   print ".";
   sleep 1; #or whatever your script is doing
}
print "done";