trunk/cgi-bin/test.pl

   1 #!/usr/bin/perl
   2
   3 #print "Content-Type: text/html\n\n";
   4 #print "<h1>My quick perl hello</h1>";
   5
   6 use CGI;
   7
   8 my $query = new CGI;
   9
  10 my $url = $query->url();
  11
  12 my $base = $query->url(-base=>1);
  13
  14 print <<EOF;
  15 Content-Type: text/plain
  16
  17
  18 url = $url
  19
  20 base = $base
  21
  22 EOF
  23
  24