path: root/evil.tcl

#!/usr/bin/tclsh

set f [open "evil.txt" "w"]
close $f

puts stderr "evil.txt created"