##

my $var=$ENV{PATH_INFO};

##

##

use CGI;
my $q=CGI->new();
my $var=$q->path_info();