I believe this will do the trick Net::SSH @ CPAN

capturing & parsing output from the w,who,and finger commands may get you some of what you need. I don't know where to retrieve time of disconnect however.