RosettaCodeData/Task/Hello-world-Line-printer/Perl-6/hello-world-line-printer-1.pl6

my $lp = open '/dev/lp0', :w;
$lp.say: 'Hello World!';
$lp.close;