<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">package perlwww;

sub printable {
    local($_) = @_;
    s/([\000-\040+\177-\377])/sprintf('%%%02x',ord($1))/eg;
    $_;
}
1;
</pre></body></html>