Select Code to Download

binmode STDOUT, ':encoding(...)';
print $title;

use Encode qw( encode );
print encode('...', $title);