Select Code to Download

open (MAN, "/usr/bin/man ssh |");
my $printing_on = 0;      # If true, print what you see
while (<MAN>)
...
    }
    print if $printing_on;
}