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

sub viewscan
{
    open CMD, "cleartool ls -l $fname 2>&1 |", or die(...);
    my @fileinfo = <CMD>;
    close CMD;
    @fileinfo = grep /view private/, @fileinfo;
}

##</code><code>##

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

sub viewscan
{
    open CMD, "cleartool ls -l $fname 2>&1 |", or die(...);
    my @fileinfo = grep /view private/, (<CMD>);
    close CMD;
}