Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...
print redirect("login.cgi");

print "Here's some stuff that you shouldn't be able to see";

Select or download this

# telnet localhost 80
Trying 127.0.0.1...
...
Content-Type: text/plain

Here's some stuff that you shouldn't be able to see