sub mysub {
   my $foo='default';
   $foo = shift if @_;
}