Select Code to Download

#!/usr/bin/perl

...
                print "Login failed.\n";
        }
}

 sub _QUIT { shift->command('QUIT')->response() == CMD_OK }