受信したメールからタイトルと本文を取得しようとしています。
下記を実行すると半角カタカナが全角カタカナで表示されます。
半角は半角のまま取得したいのですが、どのようにすればよいのでしょうか？

use Net::POP3;
use Email::MIME qw();
use Encode;

my $pop3 = Net::POP3->new( 'server' );
my $count = $pop3->login(’user', 'pass');
my $messages = $pop3->list();

print "Content-type: text/html\n\n";
print "<html>\n";
foreach my $id (sort (keys %{$messages})) {
my $mail = join q(), @{ $pop3->get($id) };
my $parsed = Email::MIME->new($mail);
printf "%s<br>\n",encode( 'sjis', $parsed->header('Subject') );
}
print "</html>\n";