Command execution is failing from perl script
===

     while($no_of_exports)
    {
        my $share_name = &get_share_name();
        my $path="$fs" . "$share_name";

        $cmd="ssh mgmt001st001 mkexport $share_name $path --nfs \"*\\(rw,no_root_squash\\)\"";
        print "CMD: $cmd";
        $out=$ssh->exec("$cmd");
        print $out;
        --$no_of_exports;
    }

     Output : 
      [root@ganesha36 ~]# 
      CMD: ssh mgmt001st001 mkexport kas142818597 /ibm/gpfs0/kas142818597 --nfs "*\(rw,no_root_squash\)"
     97 --nfs "*\(rw,no_rxport kas142818597 /ibm/gpfs0/kas1428185 

The command execution is failing from perl script
But when i Run the same command from command line it pass:


       [root@ganesha36 ~]#  ssh mgmt001st001 mkexport kas327134640 /ibm/gpfs0/kas327134640        --nfs "*\(rw,no_root_squash\)"
      EFSSG0019I The export kas327134640 has been successfully created.
      EFSSG1000I The command completed successfully.
