#!/usr/bin/perl -w
print "processing.";
for($i=0;$i<=5;++$i){
print ".";
sleep 1;
}

##</code><code>##

 
#!/usr/bin/perl -w
print "processing.";
for($i=0;$i<=5;++$i){
print ".\n";
sleep 1;
}