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

my $size = 1_000_000;

open my $bigfile, '>', 'bigfile' or die $!;
seek $bigfile, $size-1, 0;
print $bigfile "\0";
close $bigfile;