#!/usr/bin/perl -w
open (FILE, ">out.txt");
for (0..1000000) {
print FILE $_."\n";
}