Using the module suggested by derby.

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