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