#!/usr/bin/perl -w
use strict;
use CGI "redirect";

print redirect("login.cgi");

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