foreach $cmd(@commands) {
    if($cmd =~ /CGDCONT/i){
        unless (fork) {
            eval $cmd;
            if ($@) { 
              print "When executing: $cmd\nFollowing error occured:$@\n"; 
            }
            exit;
        }
    }
    else{
        eval $cmd;
        if ($@) { 
            print "When executing: $cmd\nFollowing error occured: $@\n"; 
        }
    }
}