#!/usr/bin/perl
use
strict;
use
warnings;
use
PostScript::PPD;
use
File::Basename;
$|++;
my
$ppd
= PostScript::PPD->new;
foreach
my
$file
(
@ARGV
) {
$ENV
{__WARN__} =
sub
{
STDERR
"$file: "
,
@_
,
"\n"
};
eval
{
$ppd
->load(
$file
);};
if
( $@ ) {
warn
"$file: $@"
;
}
else
{
join
' '
, basename(
$file
),
$ppd
->Manufacturer,
$ppd
->ModelName;
"\n"
;
}
}