system ("newgrp ankoor <<BLAH\n cleartool setview -exec \"cleartool ln -s $rtl_compiles_dir/$new_release $topsim_dir/SIMULIBS/vcsmx/$new_release\" $view_name \n 2>>$0.ERR") 
if (!$flag_link); 
##</code><code>##

use POSIX qw(setgid);
$my_new_group_id = POSIX::setgid();