my $desti_dir = $ARGV[0] ; # destination directory.
my @list_view_pri = ClearCase::CtCmd::exec("ls -view_only");
my @viewPri = split("\n",$list_view_pri[1]);
foreach my $view (@viewPri) {
if(-l $view) {
my $where = readlink("$view");
my $dir = $where."/$desti_dir "
symlink($view,$dir) || die "Cannot symlink";
}
else {
system("mv $view $desti_dir"); #move other files
}