Select Code to Download

system($_) for @command_list;

my @cmd_list;
push @cmd_list, qq(p4 sync -k "$options{v}");
...
# ... etc.

system $_ foreach @cmd_list;

system qq(p4 sync -k "$options{v}");
system qq(p4 -x "$options{f}" delete) if (exists $options{f});
# ... etc.