#!/usr/bin/perl

use Win32::Printer::Enum;
use Win32::Printer::Enum qw ( Jobs );

my $printer = 'Xerox-Phaser-8560';
my @printers = Printers();

# to get printernames
foreach my $p (@printers) {

    if ($p->{PrinterName} eq $printer) {

        my @jobs = Jobs($p->{PrinterName}, 0, 1);

        # how I can clear the jobs here or is any other
        # effective method to clear the print queue for 
        # a print server?
    }

}
[download]