Select Code to Download

sub foo {
    my ($p1, $p2, $p3, $p4, p5) = @_;
...
    do { #something } if $p5;
    #etc
}

prog(1,"","",2,3)

prog(1,undef,undef,2,3)