my %user_dict;     #stores {user : info} of all system users
my @user_info;     #temp list of data from USER_LIST
my @online_list;   #list of users currently logged in
my $user;
my $online;
my $user_online;

open (USER_LIST, 'users') or open(USER_LIST, '/etc/passwd')
    or die "Couldn't open: $!";
while (<USER_LIST>) {
  @user_info = split /:/, $_;
  $user_dict{$user_info[0]} = \@user_info[4,5];
}

@online_list = split(' ', `/usr/bin/users`);
foreach $user (keys %user_dict) {
  $online = 0;
  foreach $user_online (@online_list) {
    if ($user_online eq $user) {
      $online = 1;
      last;
    }
  }
  if ($online) {
    print "Online text box\n";
  } else {
    print "Offline text box\n";
  }
  print "User Info on $user: $user_dict{$user}\n";
}
--