#!/usr/local/bin/perl
# Jaime Prilusky, 2004

  for (`who`) {
    ($user, $tty, $when_where) = /^(\S+)\s+(\S+)\s+(.*)/;
    $logins{"$user $tty"} = $when_where;
  }

  for $k (sort keys %logins) {
    ($user,$tty) = split(/\s+/,$k);
    print "$user is on $tty from $logins{$k}\n";
  }