use CGI;

my $q = new CGI;

print $q->header();
my $v = $q->param('v');
# etc...

##</code><code>##

use CGI qw[ :standard ];

print header();
my $v = param('v');
# etc...