You could simplify this by just calling perldoc -oHtml $module. That will take care of all the messiness of finding the pod file for you. I'd do it in a piped open so that there is an Errno to condense all the errors you're testing for.

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