#!/usr/bin/perl

binmode(STDOUT,":unix");
for (0..20) {
    print "."; sleep 1;
}