#!/usr/bin/perl

$|=1;
for ($i=0; $i < 1200000; $i++) {
   #unless ($i % 50000) { print "#"; }
   print "#" unless ($i % 50000);
}