#!/usr/bin/perl

use CGI;
my $cgi = new CGI;

print $cgi->header();

print("Created CGI.<br>\n");
printCgi($cgi);
$cgi->path_info("/pathinfo1");
print("Set path_info to \"/pathinfo1\".<br>\n");
printCgi($cgi);

sub printCgi(){
    my $cg = shift;
    print("******************************************************************<br>\n");
    print("        URL: ".$cg->url(-path_info=>1,-relative=>0,-query=>1)."<br>\n");
    print("path_info(): ".$cg->path_info()."<br>\n");
    print("******************************************************************<br>\n");
}