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