#!/usr/bin/perl
use strict;
use warnings;
##
## This is an example of how to get all of the destinations on
## the default server.
##
use Net::CUPS;
use Net::CUPS::Destination;
{
my $cups = Net::CUPS->new();
my @destinations = $cups->getDestinations();
foreach( @destinations )
{
print $_->getName() ."\n";
}
exit( 0 );
}