Hi guys,

I am using activeperl 5.8 and try to check if files are exist on a remoteftp
server,
but I got tons of stuff in stardard error, I guess.

....
$common_cfg = { Host => $ftpserver,
User => $username,
Pass => $password,
RemoteDir => $RemoteDir
} ;

my $ftp = Net::FTP::Common->new($common_cfg, Debug => 0);

$ftp->login or die sendmail($smtp,$from,$to,"Report Job: CUCBC FTP logon
failure");
foreach (@files) {
my $exist=$ftp->exists(RemoteFile => $_);
print "$_ : $exist\n";
}
$ftp->quit;
...

The script supposes only to print this

DAIL0822.015 : 0

But instead of it print all this crap below, and with this
"Not a GLOB reference at C:/Perl/lib/Net/FTP.pm line 1103."
Help please, I guess if this doesn't work, I will have to look at LWP.


[checking aft AIBC0722.015 AIBC0723.015 AIBC0726.015 AIBC0727.015 AIBC0728.015 A
IBC0729.015 AIBC0730.015 AIBC0803.015 AIBC0804.015 AIBC0805.015 AIBC0806.015 AIB
C0809.015 AIBC0810.015 AIBC0811.015 AIBC0812.015 AIBC0813.015 AIBC0816.015 AIBC0
817.015 AIBC0818.015 AIBC0819.015 AIBC0820.015 AIBU0722.015 AIBU0723.015 AIBU072
...
5 WH020722.015 WH020726.015 WH020727.015 WH020728.015 WH020729.015 WH020803.015
WH020804.015 WH020805.015 WH020809.015 WH020810.015 WH020811.015 WH020812.015 WH
020816.015 WH020817.015 WH020818.015 WH020819.015 for [DAIL0822.015]] at C:/Perl
/site/lib/Net/FTP/Common.pm line 249.
DAIL0822.015 : 0
Not a GLOB reference at C:/Perl/lib/Net/FTP.pm line 1103.