#!/usr/bin/perl
print "Length: ";
chop($len=<STDIN>);
print "Output file: ";
chop($file=<STDIN>);
open(OUTPUT, '>'.$file);
$nullz = '';
for($i=1;$i<=$len;$i++) { $nullz .= '0'; }
for($i=0;$i<(10**$len);$i++) {
print OUTPUT substr($nullz, 0, (int($len) - length($i))).$i."\n";	
}
close(OUTPUT);
print "Generated";
<STDIN>;