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});