# 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();