Net-FTP-Mock is a project mainly written in Perl, it's free.

test code using Net::FTP without having an FTP server