X-Git-Url: https://git.exim.org/buildfarm-server.git/blobdiff_plain/1644028e51b8f9e9d70b29983820dd581252adf7..de61618de37c2e0b4ed7b972a73ceba0f169fe09:/trunk/cgi-bin/test.pl

diff --git a/trunk/cgi-bin/test.pl b/trunk/cgi-bin/test.pl
new file mode 100755
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
+
+