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