Index: _samples/perl/sample01.cgi
===================================================================
--- _samples/perl/sample01.cgi	(revision 1762)
+++ _samples/perl/sample01.cgi	(working copy)
@@ -105,8 +105,8 @@
 	if($DefServerPath) {
 		$dir = $DefServerPath;
 	} else {
-		if($ENV{'PATH_INFO'}) {
-			$dir  = $ENV{'PATH_INFO'};
+		if($ENV{'REQUEST_URI'}) {
+			$dir  = $ENV{'REQUEST_URI'};
 		} elsif($ENV{'FILEPATH_INFO'}) {
 			$dir  = $ENV{'FILEPATH_INFO'};
 		}
Index: _samples/perl/sample02.cgi
===================================================================
--- _samples/perl/sample02.cgi	(revision 1762)
+++ _samples/perl/sample02.cgi	(working copy)
@@ -170,8 +170,8 @@
 	if($DefServerPath) {
 		$dir = $DefServerPath;
 	} else {
-		if($ENV{'PATH_INFO'}) {
-			$dir  = $ENV{'PATH_INFO'};
+		if($ENV{'REQUEST_URI'}) {
+			$dir  = $ENV{'REQUEST_URI'};
 		} elsif($ENV{'FILEPATH_INFO'}) {
 			$dir  = $ENV{'FILEPATH_INFO'};
 		}
Index: _samples/perl/sample03.cgi
===================================================================
--- _samples/perl/sample03.cgi	(revision 1762)
+++ _samples/perl/sample03.cgi	(working copy)
@@ -155,8 +155,8 @@
 	if($DefServerPath) {
 		$dir = $DefServerPath;
 	} else {
-		if($ENV{'PATH_INFO'}) {
-			$dir  = $ENV{'PATH_INFO'};
+		if($ENV{'REQUEST_URI'}) {
+			$dir  = $ENV{'REQUEST_URI'};
 		} elsif($ENV{'FILEPATH_INFO'}) {
 			$dir  = $ENV{'FILEPATH_INFO'};
 		}
Index: _samples/perl/sample04.cgi
===================================================================
--- _samples/perl/sample04.cgi	(revision 1762)
+++ _samples/perl/sample04.cgi	(working copy)
@@ -162,8 +162,8 @@
 	if($DefServerPath) {
 		$dir = $DefServerPath;
 	} else {
-		if($ENV{'PATH_INFO'}) {
-			$dir  = $ENV{'PATH_INFO'};
+		if($ENV{'REQUEST_URI'}) {
+			$dir  = $ENV{'REQUEST_URI'};
 		} elsif($ENV{'FILEPATH_INFO'}) {
 			$dir  = $ENV{'FILEPATH_INFO'};
 		}
Index: _whatsnew.html
===================================================================
--- _whatsnew.html	(revision 1762)
+++ _whatsnew.html	(working copy)
@@ -107,6 +107,8 @@
 		<li>[<a target="_blank" href="http://dev.fckeditor.net/ticket/1832">#1832</a>] Calling
 	       		FCK.InsertHtml() in non-IE browsers would now activate the document processor
 			as expected.</li>
+		<li>[<a target="_blank" href="http://dev.fckeditor.net/ticket/662">#662</a>] In the Perl 
+			sample files, the GetServerPath function will now calulate the path properly.</li>
 	</ul>
 	<h3>
 		Version 2.6 Beta 1</h3>