Select Code to Download

sprintf(
    '<a href="%s">%s (printable version)</a>',
    encode_entities($bar->get_url("print")),
    $foo->[1]{name},
    );

use Modern::Perl;
use URI::Escape qw/uri_escape/;
...
    encode_entities($url),
    encode_entities($th{name}),
    );