my $cmd= "/usr/atria/bin/cleartool";
        my $test=system "$cmd setview $view";
        ......
        my $status= system("cp $file1 file2");