RosettaCodeData/Task/Hello-world-Line-printer/Perl/hello-world-line-printer.pl

open O, ">", "/dev/lp0";
print O "Hello World!\n";
close O;