<

0

00
0000000000000000000000
0000000000000000000
my $c = 0;
my $a = '0';
while ($c <= 100){
open TMP, ">$c.txt";
print TMP $a;
close TMP;
$a .= '0';
++$c;
}
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000

0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000

000000000000000000000000000000000000000000000000000000000000000000000
0
000000000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000000
0000000000000000000000000000000000000000000000

0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000
0000000000000000000000000000000000000000000000000