#!/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"; }