Thanks for the reply, I do call ftp->quit but that will close the whole session so it's done after all the files are transferred.

If you look at FTP.pm you'll see that sub put actually does always call $sock->close after a transfer is done, so no sockets should be "left over"

Regarding TIME_WAIT, you got me there, I didn't actually suspect they might be closed and timing out, is this normal behaviour? Are there any ways for me to report number of sockets being kept open within perl?

This problem report came to me from a sysadmin complaining to me that when my script runs, there's tons of sockets everywhere and other processes are acting strangely, like an ftp server being unresponsive intermittently.