I'm not sure what your question is, but I'll try to answer it. In perl you don't have to end every 'print' statement with a '\n'. If you want 'done' printed after 'I am doing something...' you do just that:

print "I am doing something...";
print "done";
[download]

This wil print "I am doing something...done". You have to add the '\n' if you want the rest of the text to start at the beginning of a line. For a nice effect while it's doing something you can add the dots while it's doing something:

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