Select Code to Download

my @cmds;
push @cmds,qq(p4 sync -k $options{v});
...
push @cmds,qq(p4 -x $options{a} add) if (exists $options{a});
 
system($_) for @cmds;

system(qq(p4 sync -k $options{v}));
system(qq(p4 -x $options{f} delete)) if (exists $options{f});
system(qq(p4 -x $options{a} add)) if (exists $options{a});