Select Code to Download

my $req_len = shift || 100;

...
seek FH, $req_len - 1,0;
print FH 'X';
close FH;

my $req_len = shift || 100;
truncate 'test.txt', $req_len;