#!/usr/bin/perl

use warnings;
use strict;

my $file_base = "output";

open( FILE, ">$file_base" ) or die "Unable to open $file_base for writing!\n$!\n";

for (1..100) {
  print FILE "0" x 1024;
  print "File Size: ".(stat($file_base))[7]."\n";
  last if (stat($file_base))[7] > 50000;
}


close FILE or die "Error closing $file_base\n$!\n";