my $req_len = shift || 100;

open FH, "+>", 'test.txt';
seek FH, $req_len - 1,0;
print FH 'X';
close FH;