put "$_user|$timestamp", "seite.htx";

@inhalt=get "seite.htx";
foreach $line(@inhalt){
  ($user|$timestamp)=split/\|/,$line;
  if($timestamp+$zeitspanne>jetztzeit){   #nur mal symbolisch geschrieben
      $online{$user}=1;
  }
}

foreach $onlineuser(keys %online){
    out "$onlineuser<br>";
}
# eigenen timestamp erneuern und löschen der offlines (durch sessionüberschreitung):

   ($user|$timestamp)=split/\|/,$_;
   # überfällige user löschen
   if($timestamp+$zeitspanne<jetztzeit){
     $_="";
   }
   # eigenen timestamp aktualisieren
   if($user eq $_user){
      $_="$_user|$newtimestamp";
   }
}, "zeilen.htx", "line";

formular: