in reply to Re: Default subroutine parameters
in thread Default subroutine parameters

sub foo { my ($bar)=@_;
$bar ||= 'default';
}