#!/usr/bin/perl -wT use CGI qw(:standard); use CGI::Carp qw(warningsToBrowser fatalsToBrowser); use strict; print header; print start_html("Thank You"); print a({ -href=>'http://localhost/CC/ccdf.html'}, img({-src=>'http://localhost/CC/ccdf.jpg', -width=>800, -height=>120}) ); print h2("Thank You");