问无法使用perl脚本(使用Net::IMAP::Client模块)获取电子邮件详细信息

EN

#!/usr/bin/perl -w

# Use this package to make sure no undefined variables are used
use strict;

# Use the following pakages for accessing the IMAP server
use Net::IMAP::Client;
use English;

my $imap = Net::IMAP::Client->new(
server => 'My.IMAP.SERVER', 
user => 'USER_Name', 
pass => 'xxxxxxxxxx', uid_mode => 1 ) or die("Could not connect to IMAP server with error code - " . $imap->Lat_error);

$imap->login or die('Login failed: ' . $imap->last_error);
my @folders = $imap->folders;
print "the content of my mailbox are : \n";
for ( my $count=0; $count <=$#folders ; $count++ )
{
    print "$folders[$count] \n";
}

# Selecting the folder
my imap->select('INBOX'); 

# fetch all message ids (as array reference)
my $messages = $imap->search('ALL') or die("Unable to search the INBOX : " . $imap -> last_error);
print "$messages \n";

Unable to search the INBOX : [BADCHARSET (US-ASCII)] The specified charset is not supported. at PERL_Script.pl line xx, <GEN0> line 35.