Alternatively you might look at the program plastlogin that comes with Sys::Lastlog - this module is XS based and should work on all systems that have /var/log/lastlog or it's equivalent, but I would be happy to apply patches for systems where it doesn't work

/J\