package myCGI; use parent CGI; sub def_param { my $self = shift; my $val = $self->SUPER::param( @_ ); return $val if defined $val; return ''; } 1;