#!/usr/bin/perl

use warnings;
use strict;

my $who = `who -q`;

if ($who =~ /(.+)\n# users/) {
    $who = $1;
}

my @who = split / /,$who;

my %who;
foreach $_ (@who) {
    $who{$_}++;
}

foreach $_ (keys(%who)) {
    print $_, ' is logged ', $who{$_}, " times\n";
}
[download]