package perlwww;

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