Index: /FCKeditor/trunk/_samples/perl/sample01.cgi
===================================================================
--- /FCKeditor/trunk/_samples/perl/sample01.cgi	(revision 1808)
+++ /FCKeditor/trunk/_samples/perl/sample01.cgi	(revision 1809)
@@ -110,4 +110,6 @@
 		} elsif($ENV{'FILEPATH_INFO'}) {
 			$dir  = $ENV{'FILEPATH_INFO'};
+		} elsif($ENV{'REQUEST_URI'}) {
+			$dir  = $ENV{'REQUEST_URI'};
 		}
 	}
Index: /FCKeditor/trunk/_samples/perl/sample02.cgi
===================================================================
--- /FCKeditor/trunk/_samples/perl/sample02.cgi	(revision 1808)
+++ /FCKeditor/trunk/_samples/perl/sample02.cgi	(revision 1809)
@@ -175,4 +175,6 @@
 		} elsif($ENV{'FILEPATH_INFO'}) {
 			$dir  = $ENV{'FILEPATH_INFO'};
+		} elsif($ENV{'REQUEST_URI'}) {
+			$dir  = $ENV{'REQUEST_URI'};
 		}
 	}
Index: /FCKeditor/trunk/_samples/perl/sample03.cgi
===================================================================
--- /FCKeditor/trunk/_samples/perl/sample03.cgi	(revision 1808)
+++ /FCKeditor/trunk/_samples/perl/sample03.cgi	(revision 1809)
@@ -160,4 +160,6 @@
 		} elsif($ENV{'FILEPATH_INFO'}) {
 			$dir  = $ENV{'FILEPATH_INFO'};
+		} elsif($ENV{'REQUEST_URI'}) {
+			$dir  = $ENV{'REQUEST_URI'};
 		}
 	}
Index: /FCKeditor/trunk/_samples/perl/sample04.cgi
===================================================================
--- /FCKeditor/trunk/_samples/perl/sample04.cgi	(revision 1808)
+++ /FCKeditor/trunk/_samples/perl/sample04.cgi	(revision 1809)
@@ -167,4 +167,6 @@
 		} elsif($ENV{'FILEPATH_INFO'}) {
 			$dir  = $ENV{'FILEPATH_INFO'};
+		} elsif($ENV{'REQUEST_URI'}) {
+			$dir  = $ENV{'REQUEST_URI'};
 		}
 	}
Index: /FCKeditor/trunk/_whatsnew.html
===================================================================
--- /FCKeditor/trunk/_whatsnew.html	(revision 1808)
+++ /FCKeditor/trunk/_whatsnew.html	(revision 1809)
@@ -160,4 +160,6 @@
 		<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>