Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl --
while(<DATA>){
    /^\s+$/ and next;
...
Elaine

George

Select or download this

$ perl -d:Trace nosoup.pl
>> nosoup.pl:2: while(<DATA>){
...
No soup for you!
>> nosoup.pl:7:     print "What soup you want? $_";
What soup you want? George