add perl script (login yahoo)