#!/bin/perl
#
use strict;
use warnings;

if(-s "/cs/ctc/.bash_profile"){
`source ~/.bash_profile`;
}else {
print "The file doesnot exists","\n";
exit 1;
}
my $dir = "cd $CTC_HOME";
chdir($dir);