use CGI qw(:standard);

##</code><code>##

print $q->header;

becomes

print header;

##</code><code>##

use CGI qw(param header url);

my $url = url();