my $CLEARTOOL = "c:\\atria\\bin\\cleartool";
$my_view = `$CLEARTOOL pwv -s`;
if ( $my_view =~ /NONE/)
{
    die "not in a view\n";
}