One solution would be to use something like Net::SSH::Expect to connect to the server using the login details you have, and check the $login_output

Martin