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