my @ccView = `cleartool pwv`;
my $setView = (grep /Set view:/, @ccView)[0];
my $view = (split(:/ , $setView))[1];