#!/usr/bin/perl -w
...
my $fname = $q->param('fname');
my $lname = $q->param('lname');
...
sub foo {
  my $name = $fname.$lname;
  ...
}