Доброе утро) не получается перейти в пассивный режим FTP : 
#!/usr/bin/perl -wl 
use IO::Socket; 
$sock = new IO::Socket::INET->new( 
                        PeerAddr =>'shannon.usu.edu.ru', 
                                PeerPort =>'21', 
                Proto =>'tcp', 
                ); 
 
$data = <$sock>; 
print $data; 
 
print $sock 'USER ftp'; 
 
print $sock 'PASS [email protected]'; 
while(<$sock>){ 
    print ; 
    }  
print $sock 'PASV' 
while(<$sock>){ 
    print ; 
    }