Help for this page
use CGI qw(:standard);
print $q->header; becomes print header;
use CGI qw(param header url); my $url = url();