perl -M"User::Utmp':constants',':utmpx'" -wle '$t=time;print $_->{ut_user}, " : ", ($t-$_->{ut_tv}{tv_sec})/3600/24, " days." for getutx'