Fixed.
Many thanks
The author of the lib wrote me back. Pasv command only helps the command immediately following it. Needed to do this and add Passive $ftpobj = Net::FTP -> new ("server.com",Debug =>1,Timeout=>60,Passive => 1);
Thanks. Adding "Passive => 1" to my Net::FTP usage solved a similar issue for us today.
Oddly enough I hadn't had that issue on RHEL5 using Perl 5.8.8 base and older Net::FTP module. We moved to RHEL6 which uses a 5.10.1 base and it had a slightly newer Net::FTP module. I'm guessing the older module defaulted to Passive but the newer one doesn't.