sub mysub {
  my $foo = shift; $foo = 'default' unless defined $foo;
  # do stuff
}