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