Well, Net::FTP is an FTP client, not a server. There is a module Net::FTPServer, which I haven't used, but which seems to do what you want. It's an FTP server written in Perl, and itlooks like all you would have to do is extend it to add logging capability. The documentation looks pretty good, anyway.

HTH

Update
Ah, this link works much better.