# This line loads the CGI.pm module.
use CGI;

# Print any error messages to the browser
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

my $im_better = new CGI;

# You need to print a content header so you don't end up with Server 500 errors
print $im_better->header();

print $im_better->start_html(-title => 'Test Page');

# The coveted link
print $im_better->a({href=>"http://www.google.com"}, 'Google');

$im_better->end_html();

##</code><code>##

print "Content-type: text/html\n\n"; # The content header
..... # Put stuff you need here
print '<a href="http://www.google.com>Google</a>';

##</code><code>##

use CGI;
my $im_better = new CGI; 
# Please note that I didn't print a header this time
print $im_better->redirect("http://www.google.com");

##</code><code>##

# I also didn't print a header this time either
print "location:http://www.google.com\n\n";