You're probably interested in the utmp database interface which is available on CPAN at User::UTMP. No need to call the shell which you could do with backticks or system. Enjoy.

AgentM Systems nor Nasca Enterprises nor Bone::Easy nor Macperl is responsible for the comments made by AgentM. Remember, you can build any logical system with NOR.