$image=$ARGV[0];
chomp($image);
print "image =  $image\n";
$fld = "obj-ppc-".$image;
chomp($fld);
print "fld = $fld\n";
 
$vw = `cleartool pwv`;
chomp($vw);
@view = split(/\s+/,$vw);
$n = scalar(@view);
print "n = $n\n";
print "$view[6]\n";
$pwd = `pwd`;
print "pwd = $pwd\n";
$path = "/vob/ios/sys/$fld";
print "path = $path\n";
chdir("/vob/ios/sys/obj-ppc-c3750");