Select Code to Download

#!/usr/local/bin/perl
# server.pl
...
    undef($c);
}
OUTTAHERE:

#!/usr/local/bin/perl
#server_content.pl
...
    exit(1);
}
print "OK 200\nCache-Control: private\nContent-Length: ", length($resp
+str) ,"\nContent-Type: application/xml; charset=utf-8\nSet-Cookie: Se
+ssion=F306972E-F9B0-4D13-958D-0A561AFD6985; Path=/\nProxy-Connection:
+ Keep-Alive\r\n\r\n",$respstr;