use CGI qw[ :standard ];

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