syntax error near unexpected token `;'

[lina]

#/usr/bin/perl

until ($name eq "");
do {
        print "Enter another name, or Enter to stop:\n" ;
        $name = <STDIN>;
        chomp ($name);
        push @namelist,$name;   

}

print @namelist


$ ./generate_namelist.pl
./generate_namelist.pl: line 6: syntax error near unexpected token `;'
./generate_namelist.pl: line 6: `       $name = <STDIN>;'


Thanks for any advice,

Best Regards,

-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/