@rem = '--*-Perl-*-- @echo off perl -x -S %0 %* goto endofperl @rem '; #!/usr/bin/env perl #line 8 $^W=1; @GS_CMD=(-d "/usr/bin")? ("gs"):("gswin32"); die "usage: $0 pdffile [dscfile]\n" unless (@ARGV); $pdffile=shift @ARGV; if (@ARGV) { $dscfile=shift @ARGV; } else { ($dscfile=$pdffile)=~s/\.pdf$/\.dsc/; } push @GS_CMD, qw(-q -dNODISPLAY -dSAFER -dDELAYSAFER); push @GS_CMD, ("-sPDFname=$pdffile", "-sDSCname=$dscfile"); push @GS_CMD, qw(pdf2dsc.ps -c quit); exec @GS_CMD or die $!; __END__ :endofperl