From owner-freebsd-questions@FreeBSD.ORG  Tue Nov 11 12:52:58 2003
Return-Path: <owner-freebsd-questions@FreeBSD.ORG>
Delivered-To: freebsd-questions@freebsd.org
Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125])
	by hub.freebsd.org (Postfix) with ESMTP id 9C54216A4E3
	for <freebsd-questions@freebsd.org>;
	Tue, 11 Nov 2003 12:52:58 -0800 (PST)
Received: from ws1.cnweb.com (ws1.cnweb.com [207.91.1.11])
	by mx1.FreeBSD.org (Postfix) with SMTP id BD05043FB1
	for <freebsd-questions@freebsd.org>;
	Tue, 11 Nov 2003 12:52:55 -0800 (PST)
	(envelope-from darryl@osborne-ind.com)
Received: (qmail 7488 invoked from network); 11 Nov 2003 20:52:54 -0000
Received: from p189n31.ruraltel.net (HELO darryl) (24.225.31.189)
  by spkg.com with SMTP; 11 Nov 2003 20:52:54 -0000
From: "Darryl Hoar" <darryl@osborne-ind.com>
To: <freebsd-questions@freebsd.org>
Date: Tue, 11 Nov 2003 14:57:04 -0600
Message-ID: <008001c3a896$5cda7f90$0701a8c0@darryl>
MIME-Version: 1.0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3 (Normal)
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook CWS, Build 9.0.2416 (9.0.2911.0)
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4927.1200
Importance: Normal
Subject: OT - Perl Question
X-BeenThere: freebsd-questions@freebsd.org
X-Mailman-Version: 2.1.1
Precedence: list
Reply-To: darryl@osborne-ind.com
List-Id: User questions <freebsd-questions.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-questions>,
	<mailto:freebsd-questions-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/freebsd-questions>
List-Post: <mailto:freebsd-questions@freebsd.org>
List-Help: <mailto:freebsd-questions-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-questions>,
	<mailto:freebsd-questions-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Tue, 11 Nov 2003 20:52:58 -0000

I am trying to learn perl.  I am going through a tutorial and have come
across a syntax error I can't figure out.

Here's the code:

print "Please tell me your name: ";
chop ($name=<STDIN>);

print "Please tell me your nationality: ";
chop ($nation=<STDIN>);

if ( $nation eq "British"  or  $nation eq "New Zealand" )
{
 print "Hallo $name, pleased to meet you!\n";

}

when I try to run it, it generates a compile errors on the
if line.

I know its the conditional test, but don't know how to fix
it to be syntactically correct in perl.

Any help?

thanks,
-D