sub param {
       my $key = shift;
       my $value = ....code to get value...;

       return defined $value 
           ? $value 
           : '';
   }

##</code><code>##


   sub get_defined_param {
       my $value = param(@_);
       return defined $value 
           ? $value
           : '';
   }

##</code><code>##

    my $title     =  get_defined_param('title');
    my $request   =  get_defined_param('request');
    my $orderlist =  get_defined_param('orderlist');
    my $remark    =  get_defined_param('remark');
    my $host      =  get_defined_param('host');
    my $date      =  get_defined_param('date');

    my $action    =  get_defined_param('action');

    my $gamefile  =  get_defined_param('gamefile');
    my $gamename  =  get_defined_param('gamename');
    my $gamedesc  =  get_defined_param('gamedesc');
    my $counter   =  get_defined_param('counter');