Help for this page
print FTP "PASS password\r\n"; sysread (FTP, $FormData, 1024); ... print FTP "PASV\r\n"; sysread (FTP, $FormData, 1024);