my $bytes = -s $filename

open(FILE, '+<', $filename);
seek(FILE, 0, 0);
print FILE "X" x $bytes;
close(FILE);
unlink $filename;