For a slightly more complicated, but platform agnostic (I do like that expression - thanx again bart) solution, why not try...

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;
}
[download]

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;
}
[download]

HTH ,