$cmd = [  qw(p4 label -o -t ), "TEST TEST_$options{r}_$date", qw(| p4 label -i)  ];