sub pushusers() { my $host = shift; my $cmd = sprintf("ssh %s@%s perl",$user,$host); my $pid = open2(*Reader, *Writer, $cmd); print Writer "die('got into perl')\n"; close(Writer); my $output = ; print "Got from host ${host} output: ${output}"; exit(0); }