sub checkips
        {
                foreach $line(@IPLIST)
                {
                        $CURRENTIP = "$line";
                        my $ftp = "";
                        $ftp = Net::FTP->new("$CURRENTIP", Debug => 1);
                        $ftp->login("anonymous",'-anonymous@') || do {$FTPCODE = "nologin"};

                        foreach(@FOLDERS)
                                {
                                        $CURRENTFOLDER = "$_";
                                        print "* Now scanning $CURRENTIP with folder $CURRENTFOLDER:";
                                        if ($FTPCODE ne 'nologin')
                                        {
                                                $ftp->cwd("$CURRENTFOLDER") || do {$FTPCODE = "nocwd"};
                                                if ($FTPCODE ne 'nocwd')
                                                {
                                                        $ftp->put("$TESTFILE") || do {$FTPCODE = "noput"};

                                                        if ($FTPCODE ne 'noput')
                                                        {
                                                                push(@OPENIPS, "IP: $CURRENTIP with Folder: $CURRENTFOLDER");
                                                        }
                                                }

                                        }

                                        print "\n\n";
                                }
                     $ftp->quit();
                }
        }