sub f {
    my $arg = defined $_[0] && length $_[0] ? shift : 'default';
}