use warnings;
use strict;

#my @ccView = `cleartool pwv`;
my @ccView = map{"Set view: $_"}5..9;
my $setView = (grep /Set view:/, @ccView)[0];
my $view = (split(/:/ , $setView))[1];
#my $view = (split(:/ , $setView))[1];
print "$view\n";

__END__

 5