Anonymous

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

        my $filesize =(-s "output#0.txt");
        my $Number=0;
        my $File='output#0.txt';
        my $Error=0;

printf("filesize[$filesize]\n");
open OUTFILE,">$File" || die "Cannot open file, $File";

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