Wanted: Help inventing poor man's FTP server

I want to implement a implement a poor man's ftp server that has minimal
dependencies (like none!). I'll write a simple custom poor man's ftp
client on the other side. Since I'm writing both the client and the
server, I don't need to worry about adherence to the ftp standard --
only the concept.

So how can I write a simple perl program that waits on a TCP socket for
a file name followed by the file contents (I don't need to worry the
path names -- everything goes in the same directory).

Can I assume that an entire perl source code file will fit in a single
socket packet? I've only used print statements before. I could write a
single record per the call to the socket send function. Is there a
better way? (I hope so!)

Recommendations are welcome!

thanks,
siegfried

• Wanted: Help inventing poor man's FTP server by siegfried
• Re: Wanted: Help inventing poor man's FTP server by Shlomi Fish
• Re: Wanted: Help inventing poor man's FTP server by Paul Johnson