my $command = 'ssh '. $node . ' "perl -e \'while (<>) { chomp; \$_ =~ /(.*)\\//; \`su xxx -c \"mkdir -p \$1\"\`; \`su xxx -c \"touch \$_\"\`;}\' 1>>$storageRootPath_log 2>>$storageRootPath_err"'; my $pid = open ( $sshNodeStdinHandle{$node} , "| $command 2>>sivakumar" ); #SK004 print {$sshNodeStdinHandle{$node}} /x/y/z/sample.txt,"\n";