This isn't much related to Perl but anyway. You probably need to open incoming ftp-data connections. I'd recommend you to use iptables' module state, that will take care of those details for you: