find({wanted => \&viewscan,follow}, $view);

sub viewscan
{
	my $fname = $File::Find::name;
	my $cmd = `cleartool ls -l $fname`;
	my @fileinfo = grep {$_ =~ /view private/} $cmd;
}