Select Code to Download

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

...

print LPR $text;
close LPR;

#!/usr/bin/perl
use warnings;
...
exit;