print "Content-Type: text/html\n\n"; print "

This will take some time...

"; my $i = 10; while ($i) { print "

Please wait, working for $i second(s)...

"; $i--; } print "

DONE! finally...

"; ##

##

print "