fix organization

[buildfarm-server.git] / trunk / cgi-bin / test.pl

diff --git a/trunk/cgi-bin/test.pl b/trunk/cgi-bin/test.pl
new file mode 100755 (executable)
index 0000000..9b179d2
--- /dev/null
+++ b/trunk/cgi-bin/test.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+
+#print "Content-Type: text/html\n\n";
+#print "<h1>My quick perl hello</h1>";
+
+use CGI;
+
+my $query = new CGI;
+
+my $url = $query->url();
+
+my $base = $query->url(-base=>1);
+
+print <<EOF;
+Content-Type: text/plain
+
+
+url = $url
+
+base = $base
+
+EOF
+
+