关于system()函数

关于system()函数

perl 中:
system("ftp -n<<!\n".
"open $IP\n".
"user USERNAME PASSWD\n".
"binary\n".
"prompt off\n".
"cd /yourpath\n".
"mput *.Z\n".
"mget *.tar\n".
"close\n".
"bye\n".
"!\n");

这样可以正确完成ftp命令吗?
程序都写出来了,运行一下就知道咯,
use Net::FTP;
楼上的图像,好黄好暴力哦~