set f [open prn w]
puts $f "Hello World!"
close $f