You could also try ftping the files from server1 to server2, having created them on server1.

A quick Net::FTP script should do the job nicely :).

Try http://www.perldoc.com/perl5.6/lib/Net/FTP.html if you're unfamiliar with the module :).

---

game(Wookie,opponent) eq 'Wookie' ? undef $problem : remove_limbs(arms,opponent);