OSX lionにperlbrewをインストール

http://blog.kiftwi.net/2011/08/02/os-x-lion%E3%81%ABperlbrew%E3%81%A8cpanm%E3%82%92%E3%82%A4%E3%83%B3%E3%82%B9%E3%83%88%E3%83%BC%E3%83%AB%E3%81%97%E3%81%A6perl%E7%92%B0%E5%A2%83%E3%82%92%E6%95%B4%E3%81%88%E3%82%8B/

CPANが使えない件、バグかも。
http://www.gossamer-threads.com/lists/perl/porters/260169

/System/Library/Perl/5.12/Net/FTP/dataconn.pm
line 54. あたりを編集

sub _close 
{ 
my $data = shift; 
my $ftp = ${*$data}{'net_ftp_cmd'}; 

$data->SUPER::close(); 

return if !defined $ftp;   #Here is added code

delete ${*$ftp}{'net_ftp_dataconn'} 
if exists ${*$ftp}{'net_ftp_dataconn'} && 
$data == ${*$ftp}{'net_ftp_dataconn'}; 
} 

sub close 
{ 
my $data = shift; 
my $ftp = ${*$data}{'net_ftp_cmd'}; 

if(exists ${*$data}{'net_ftp_bytesread'} && !${*$data}{'net_ftp_eof'}) { 
my $junk; 
$data->read($junk,1,0); 
return $data->abort unless ${*$data}{'net_ftp_eof'}; 
} 

$data->_close; 

return if !defined $ftp; #Here is added code

$ftp->response() == CMD_OK && 
$ftp->message =~ /unique file name:\s*(\S*)\s*\)/ && 
(${*$ftp}{'net_ftp_unique'} = $1); 
$ftp->status == CMD_OK; 
}