my $cgi = new CGI();
my $foo = $cgi->param('foo');
print $cgi->header();
&param($foo);
&header($foo);
...

sub param {
  ...
}

sub header {
  ...
}