#!/usr/bin/perl
print "Content-type: text/html\n\n";
$ip = $ENV{'REMOTE_ADDR'}; # Pega seu ip
$ip = substr($ip,0,4); # pega os quatro primeiro digitos do seu ip
if($ip =~ /200/){ # ve se tem o 200 nesses 4 primeiros digitos
print "Você esta se conectando do Brasil"; # Se siver, ok
}else{
print "Você não esta conectado pelo Brasil"; # se nao, avisa
}Qualquer duvida, entre em contato.
abraços
Edição feita por: Gabriel, 26/04/2004, 00:17.










