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