Index: _samples/perl/sample01.cgi
===================================================================
--- _samples/perl/sample01.cgi	(revision 1805)
+++ _samples/perl/sample01.cgi	(working copy)
@@ -109,6 +109,8 @@
 			$dir  = $ENV{'PATH_INFO'};
 		} elsif($ENV{'FILEPATH_INFO'}) {
 			$dir  = $ENV{'FILEPATH_INFO'};
+		} elsif($ENV{'REQUEST_URI'}) {
+			$dir  = $ENV{'REQUEST_URI'};
 		}
 	}
 	return($dir);
Index: _samples/perl/sample02.cgi
===================================================================
--- _samples/perl/sample02.cgi	(revision 1805)
+++ _samples/perl/sample02.cgi	(working copy)
@@ -174,6 +174,8 @@
 			$dir  = $ENV{'PATH_INFO'};
 		} elsif($ENV{'FILEPATH_INFO'}) {
 			$dir  = $ENV{'FILEPATH_INFO'};
+		} elsif($ENV{'REQUEST_URI'}) {
+			$dir  = $ENV{'REQUEST_URI'};
 		}
 	}
 	return($dir);
Index: _samples/perl/sample03.cgi
===================================================================
--- _samples/perl/sample03.cgi	(revision 1805)
+++ _samples/perl/sample03.cgi	(working copy)
@@ -159,6 +159,8 @@
 			$dir  = $ENV{'PATH_INFO'};
 		} elsif($ENV{'FILEPATH_INFO'}) {
 			$dir  = $ENV{'FILEPATH_INFO'};
+		} elsif($ENV{'REQUEST_URI'}) {
+			$dir  = $ENV{'REQUEST_URI'};
 		}
 	}
 	return($dir);
Index: _samples/perl/sample04.cgi
===================================================================
--- _samples/perl/sample04.cgi	(revision 1805)
+++ _samples/perl/sample04.cgi	(working copy)
@@ -166,6 +166,8 @@
 			$dir  = $ENV{'PATH_INFO'};
 		} elsif($ENV{'FILEPATH_INFO'}) {
 			$dir  = $ENV{'FILEPATH_INFO'};
+		} elsif($ENV{'REQUEST_URI'}) {
+			$dir  = $ENV{'REQUEST_URI'};
 		}
 	}
 	return($dir);
Index: _whatsnew.html
===================================================================
--- _whatsnew.html	(revision 1805)
+++ _whatsnew.html	(working copy)
@@ -159,6 +159,8 @@
 			IE, the first character of table captions where being lost on table creation.</li>
 		<li>The selection and cursor position was not being properly handled when creating some
 			elements like forms and tables.</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>