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

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