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