open(LPR, "|lpr -Plp0  >/dev/null 2>&1");

open (FILE,"< $0 ") or die "Couldn't open: $!";
my $text = do {local $/; <FILE>};
close FILE;

print LPR $text;
close LPR;