Faz assim:
#!/usr/bin/perl
$tempo = "300";
# Tempo em Segundos que um usuário contará como online. Padrão = 300.
$bd = "online.rse";
# Path completo para o arquivo de dados.
$cor = "000000";
# Cor que deseja para mostrar quantos usuários estarão online.
$texto = "Usuário";
use CGI;
$query = new CGI;
$ipx = $ENV{'REMOTE_ADDR'};
$tmp = time();
open (bd,"$bd");
@bd = <bd>;
close (bd);
foreach (@bd) {
($ip,$tempox) = split(/\|\|/, $_);
$tempon = $tempox + $tempo;
if ($tmp > $tempon or $ip eq $ipx) {
open(del,"$bd");
@del = <del>;
close (del);
chomp(@del);
open(bx,">$bd");
close (bx);
foreach $linha (@del) {
if($linha eq "$ip||$tempox||") { next; }
else {
open(delx,">>$bd");
print delx "$linha\n";
close(delx);
}
}
}
}
open (bd,">>$bd");
print bd "$ipx||$tmp||\n";
close (bd);
open (bd,"$bd");
@bd = <bd>;
close (bd);
$usuarios = @bd;
if ($usuarios > '1') { $texto .= "s"; }
print "content-type:text/html\n\n";
print qualquer~document.write('<a href="https://www.scriptbrasil.com.br"><font face="Verdana" size="1" color="$cor">$usuarios $texto Online</font></a>');~;
É necessário um outro arquivo para isso. qualquer duvida me contate. falou.