use Net::CUPS::Destination;
my $printer = $cups->getDestination( "lj4200dn" );
my $jobid = $printer->printFile( $filename, $title );