my $desired_size = 2048000;
my $current_size = -s $file;
my $null_bytes = "\x00" x ($desired_size - $current_size);
open OUT, ">>", $file or die;
binmode OUT;             # <-- Some OSs need this
print OUT $null_bytes;
close OUT;