$ ~eeivob05/bin/locklbtype -vob /vobs/atcctest -l MG -u
Tainted(eaccount): 0, eeivob05
Tainted(log): 0, /home/eeivob05/RANOS_autobuild/builds/logs/lbunlock.log
Tainted(owner): 1, vobadm13
Tainted(uowner): 0, vobadm13
Tainted(op): 0, unlock
Tainted(lbtype): 0, lbtype:MG@/vobs/atcctest
Tainted(ssh): 0, /usr/bin/ssh
Tainted(host): 0, eieatx008
Tainted(binct): 0, /opt/rational/clearcase/bin/cleartool
Insecure dependency in system while running with -T switch at /dev/fd/4 line 78, <GEN1> line 5.
$ ct diff -diff -pred locklbtype
8,9c8,9
< use IPC::System::Simple;
< use autodie;
---
> # use IPC::System::Simple;
> use Scalar::Util qw(tainted);
60,62c60,78
< $owner =~ s/[^-\@\w.]//g;
< system($ssh, '-l', $owner, $host, $binct, @op, @lbtype);
< map{print"$_\n"}($ssh, '-l', $owner, $host, $binct, @op, @lbtype);
---
> my @untaintedbits;
> foreach (split //, $owner) {
>   if (/([-\@\w.])/) {
>     push @untaintedbits, $1;
>   }
> }
> my $uowner = join '', @untaintedbits;
> 
> print "Tainted(eaccount): ", tainted($eaccount), ", $eaccount\n";
> print "Tainted(log): ", tainted($log), ", $log\n";
> print "Tainted(owner): ", tainted($owner), ", $owner\n";
> print "Tainted(uowner): ", tainted($uowner), ", $uowner\n";
> print "Tainted(op): ", tainted(@op), ", @op\n";
> print "Tainted(lbtype): ", tainted(@lbtype), ", @lbtype\n";
> print "Tainted(ssh): ", tainted($ssh), ", $ssh\n";
> print "Tainted(host): ", tainted($host), ", $host\n";
> print "Tainted(binct): ", tainted($binct), ", $binct\n";
> # map{print"$_\n"}($ssh, '-l', $owner, $uowner, $host, $binct, @op, @lbtype);
> system($ssh, '-l', $uowner, $host, $binct, @op, @lbtype);