can't build data connection: connection refused

I get an error when attempting to do a RETR with my Net::FTP script. 
source code and Debug log below... thanks for any help

use lib '/m/aru/aruforms/pm';
use Net::FTP;
use strict;

my $host = 'ap555sun.us.oracle.com';
my $file = '/d1/prepos/dev/apfrepos/NLS/rel11i/twncan/p1774034_11i_zht.zip';


     my $n = Net::FTP->new($host, Debug => 1, Passive => 1);
#    $n->login('tmbranno','xxx');
#    $n->login('anonymous', 'tmbranno@ap555sun');
     $n->login; # use .netrc

     my $o = $n->cmd('retr', $file);



Net::FTP=GLOB(0x2b51e4)<<< 220 ap555sun.us.oracle.com FTP server 
(Version wu-2.\
6.1(1) Thu Apr 26 13:07:30 PDT 2001) ready.
Net::FTP=GLOB(0x2b51e4)>>> user tmbranno^M
Net::FTP=GLOB(0x2b51e4)<<< 331 Password required for tmbranno.
Net::FTP=GLOB(0x2b51e4)>>> PASS ....
Net::FTP=GLOB(0x2b51e4)<<< 230 User tmbranno logged in.
Net::FTP=GLOB(0x2b51e4)>>> retr 
/d1/prepos/dev/apfrepos/NLS/rel11i/twncan/p1774\
034_11i_zht.zip^M
Net::FTP=GLOB(0x2b51e4)<<< 425 Can't build data connection: Connection refused.
::for 83 at f1.pl line 18.
Net::FTP=GLOB(0x2b51e4)>>> QUIT^M
Net::FTP=GLOB(0x2b51e4)<<< 221-You have transferred 0 bytes in 0 files.
^M
{ap555sun:tmbranno:tmbranno_1693779_arulinkftp:arudev}16> 
/home/tmbranno/bugsag\
a ^M/2058255^[[71C  ^M%


--