#!/ots/perl/bin/perl
$|++;
use strict;

use CGI;

my $q = new CGI;

my $sid = $q->param("sid"); 

print "Content-type: text/plain\n\n";
print "\nsid is: $sid\n";
print "\nsid escaped is: " . $q->escape($sid);
print "\nsid unescaped is: " . $q->unescape($sid);
print "\nENV{QUERY_STRING} is: " .  $ENV{QUERY_STRING};

exit;