Select Code to Download

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