Net::FTP，提示Net::FTP=GLOB(0x86037e4)"...

我的代码和文档中的代码一样，但执行却出现错误。
在此请教各位，是哪里的问题。

代码如下：

#!/usr/bin/perl -w use strict; use Net::FTP my $ftp=Net::FTP->new("218.108.25.37") || die "$@"; $ftp->login("gaochong","xxx")         or die $ftp->message; $ftp->cwd("/home1/sk/")         or die $ftp->message; ftp->get("test.sh","txt2",

执行时错误信息如下：
[root@linux ex]# ./ftp
"Net::FTP=GLOB(0x8d359ac)" is not exported by the Net::FTP module
Can't continue after import errors at ./ftp line 6
BEGIN failed--compilation aborted at ./ftp line 6.

少了个分号。

又有问题。。。

#!/usr/bin/perl -w

use strict;
use Net::FTP;

my $ftp=Net::FTP->new("ip");
$ftp->login("user","passwd")
        or die $ftp->message;
$ftp->cwd("/home1/gaochong/log/")
        or die $ftp->message;
$ftp->get("load.log","txt2","/home/gaochong/log/")
        or die $ftp->message;
$ftp->quit;

但执行又出现错误：
bash[root@ldap2:/home/gaochong/scripts]=>./2
REST requires a value greater than or equal to 0.

看手册吧。