in reply to A simple FTP server

How to handle the <PASV> command in this code?

In Section Cool Uses for Perl