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;

##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;
use Net::CUPS::Printer;
use Data::Dumper;

my @printers = cupsGetPrinters ();
print "printers-> @printers\n";

my $printer = cupsGetDefault();
print "Default printer-> $printer\n";

my %options =();
my $jobid = cupsPrintFile($printer,"./$0",'Job1',\%options);
print "jobid-> $jobid\n";

my $jobs = cupsGetJobs('lp0',1,0);
print "jobs-> $jobs\n";
print Dumper([$jobs]),"\n";

my $cancel = cupsCancelJob('lp0', $jobid);
print "cancel-> $cancel\n";

#my $jobs = cupsGetJobs('lp0',1,0);
#print "jobs-> $jobs\n";
#print Dumper([$jobs]),"\n";

my $user = cupsUser();
print "user-> $user\n";

exit;