sub foo { my $bar = shift || "Paco"; }