{ my $cpid = open my $fh, '-|', '/usr/bin/perldoc', '-oHtml', $module; defined $cpid or print error_routine($!) and last; print while <$fh>; close $fh; }