#!/usr/bin/perl -t

use strict;
use warnings;
use Net::CUPS::Destination;

use File::Temp qw/tempfile/;

my ($filehandle,$filename) = tempfile(UNLINK=>1);

# Define Printer
my $cups = Net::CUPS->new() or die $!;
my $printer = $cups->getDestination("CITIZEN-CT-S801") or die $!;

open($filehandle, '>', $filename) or die "Cannot open file for writing: $!\n";

print $filehandle "Some data 1\n";
print $filehandle "Some data 2\n";
print $filehandle "Some data 3\n";

close($filehandle);

# Print Data
open($filehandle, '<', $filename) or die "Cannot open file for reading: $!\n";

if ($printer->printFile($filename, 'jobx')) { print 'Success';} 

else
{
	my $error = $printer->getError();
	if ($error) { print "Printer Error: " . $error . "\n"; }
}
close($filehandle);

exit;