#!/usr/bin/perl -w
use strict;
use warnings;
use File::stat;

	my $File='output#0.txt';
	my $filesize =(-s "$File");
	my $Number=0;
	my $Error=0;
#!/usr/bin/perl
open OUTFILE,">$File" || die "Cannot open file, $File";

while($filesize >= 10000000)
{
  print OUTFILE "$Number\n";
  $Number++;
  $filesize =(-s "output#0.txt");
  if ($filesize >= 10000000)
  {
    close(OUTFILE);
    $File="output#1.txt";
    open OUTFILE,">$File" || die "Cannot open file, $File";
  }
}