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

my $q = CGI->new;

print "This is the redirect header:\n";
print $q->redirect('/login.html');

print "And this is the normal header:\n";
print $q->header;

print "And this is an alternative header:\n";
print $q->header('text/plain');