[Perl] ip adresse zur identifikation auslesen - nur wie?

[hwei]

hallo leute

- ich brauche eure hilfe
- ich muss eine internetseiet nur bestimmten ip-adressen zugänglich machen, weiß leider nur noch nicht so richtig wie

mein code:

use strict;
use CGI qw(:all);
use CGI::Carp qw(fatalsToBrowser);

my $emailauswertung = param('Emailauswertung');

if ( $emailauswertung eq 'Emailauswertung' )
{
my $ip = $ENV{'REMOTE_ADDR'};

if ($ip == xxx.xxx.xxx.xxx)
{
print header ;
print start_html('zulassen');
print "willkommen";
print end_html ;
}
else
{
print header ;
print start_html('ablehnen');
print "keine berechtigung";
print end_html ;
}
}
else
{
print header ;
print start_html('geht nicht');
print "geht nicht";
print end_html ;
}

mein problem ist, egal von welcher ip ich bekomme immen ein willkommen


mfg

[mrhappiness]

ich kenn mich mit perl ja nicht aus, aber gehört das xxx.xxx.xxx.xxx nicht in ' (hockomma)?

[hwei]

fehler gefunden

habe den fehler gefunden

die zeile muss lauten

if ( $ip eq '139.17.165.231' )