#!/usr/bin/perl
use strict;
use warnings;

my $derp = 'X' x 40000;
open (my $fh, '>', 'derp.txt') or die "can't open derp.txt: $!";
print $fh $derp;
close($fh);