#!/usr/pkg/bin/perl ############################################################################## # photoshow_gen.pl # # Parse the input parameters: $qstring = $ENV{'QUERY_STRING'}; if ( $qstring eq "" ) { $qstring = @ARGV[0]; } `perl photoshow2.pl $qstring`;