Select Code to Download

sub defaults { 
    my( $p1, $p2, $p3) = map{ defined $_[0] ? shift : $_ }( 1, 2, 3 );
...
};;
 
defaults('a', undef, 'c');