my $line="/dev/".$utmp->{"ut_line"};
my $atime=(stat $line)[8];
my $what="user \"".($utmp->{"ut_user"} || "<local>")."\", line \"$line\"";
my $line="/dev/".$utmp->{"ut_line"};
my $atime=(stat $line)[8];
my $what="user \"".($utmp->{"ut_user"} || "<local>")."\", line \"$line\"";