#!/usr/local/bin/perl -w

#otheropt.pl to test for triple slashes and remove one of them

$path_info=$ENV{PATH_INFO};
$path_info=~ s!///!//!;

print ("Location: http://globec.whoi.edu/jg/otheropt.pl",
	$path_info, "?", $ENV{QUERY_STRING});
print "\n\n"