use strict;
use warnings;

my $filename = 'recipe.txt';
open(my $fh, '>', $filename) or die "Could not open file 'recipe.txt'";
print $fh "0" x 2147483648;
close $fh;
print "done\n";