1.$cmd = [  qw(p4 submit -d $options{des} -f submitunchanged -i)  ];
run3($cmd, \$stdin, \$stdout, \$stderr); 
print "\n$stderr\n";

Problem:-Not deciphering $options{des}

$cmd = [  qw(p4 tag -l TEST_$options{r}_$dat $options{v})  ];
run3($cmd, \$stdin, \$stdout, \$stderr); 
print "\n$stderr\n";

Error:-$options{v} - no such file(s).

The following commands work using system though


system qq(p4 tag -l TEST_"$options{r}"_$date $options{v});