Eu não sei como obter tempo desde a mudança, mas você pode obter o usuário atualmente ativo verificando a propriedade em / dev / console. Há provavelmente uma maneira melhor em Perl, mas o comando stat fará isso:
my $user = 'stat -f%Su /dev/console';