open (my $in,'-|','ssh ...');
    while (<$in>) {
        # do stuff
    }