1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14:
open(TMP4, ") { my $path=; unless($path) { warn "No path for ip $ip\n"; next; } my $ssh = ssh('user@hostname', "cd $path"); print "$ssh\n"; } close(TMP4); close(TMP7);