#!/usr/local/bin/perl -l require 5.001; #use strict; =head1 NAME all.pl---sorts and prints all the PD's currently in the database =head1 AUTHOR Written for the U.S. Geological Survey by Gary Blackburn =cut #print "Content-type: text/html\r\n\r\n"; # print search form print <

All the PD's Currently in the Archive

END