perl -Te "use CGI qw/:standard :debug/; $ms=param('you'); if (-f qq($ms\.txt)){open(H,qq(>>$ms\.txt))};print <H>; close(H);" you=hello
Insecure dependency in open while running with -T switch at -e line 1.