#!/usr/bin/perl
#
  do "acqPATHs.pl";
  $dfnam = $ENV{"QUERY_STRING"};
  unless (open(IN, "< $DATAPATH/$dfnam"))
    { print STDERR "File $dfnam not found\n"; exit(9); }
  print "Cache-Control: no-cache, must-revalidate\n";
  print "Pragma: no-cache\n";
  print "Content-type: application/postscript\n\n";
  binmode IN;  binmode STDOUT;
  while(<IN>) { print STDOUT; }
  close(IN);
  exit(0);