#!/usr/local/bin/perl
## 
# $Id: path_info.cgi,v 1.3 1998/06/10 08:08:28 falcon Exp $
##

use CGI qw(:standard);

$path_info = path_info(); 
$path_info =~ s/\///;

print header();
print "PATH_INFO = (", $path_info, ")\n";
print "ARGV[0] = (", $ARGV[0], ")\n";
print end_html();