Hello, I am using Net::FTP module to access the FTP server which is configured by me itself on another machine. I have configured the FTP server for anonymous access as well as authorized access. Just to understand the module functioning, i used a list of username and password to try out on my file server Wrote the following code trying combinations of username and password:

eval
{
$ftp = Net::FTP->new($in, Debug => 0);
$ftp->login($username,$password);

};
   if(!($@))
{
print SLOG "Connected FTP: for $username and $password \n";
}
[download]

It is giving me... Connected to FTP: for all combinations of the username and password.

Note: 1) I want to notify that the FTP server has anonymous login. 2) I don't want it to be accessed by any other username and password except for the valid ones using Net::FTP