Select Code to Download

open(MAN,"/usr/bin/man ssh |")
  || die "Could not fork():$!\n";
...
  print "found it\n" if (/DESCRIPTION/i);
# tried with modifiers: m,s,i none worked.
}

system("man ssh >sshf");
open(MANP,"<sshf") or die "Error:$!\n";
while (<MANP>){
print "got it\n" if /DESCRIPTION/;
}

open(MAN,"/usr/bin/man ssh |") or die"$!\n";
while(<MAN>){
print "work!\n" if /description/ig;
}

open(MAN,"/usr/bin/man ssh |") or die"$!\n";
while(<MAN>){
print "work!\n" if /ssh/g;
}

$name = qw(

ssh - OpenSSH secure shell client (remote login program)
);

$synopsis = qw(

ssh [-l login_name] [hostname | user@hostname] [command]
);

$description =qw(

);

EOF