#!/usr/bin/perl

# Filename: p3.pl
#
# 	Our third perl program
#		demonstrating iteration
#

use strict;


while ($name ne "bill")
{
	print "Enter your name ";
	$name=;
	chomp($name);
	print "Hello ".$name."\n";
}