#!/usr/bin/perl

my $i=0;
for ($i=0;$i<10000000;$i++)
{
 print ("stuff");
}

