perlquestion zachlipton While goto may be harmful and all, I have a need to use it in this case and it makes logical sense for the program flow. I'm trying to avoid hackind it with a loop, but my goto statement isn't working. Here's a code sample: <code> ASK_DATABASE: ask('databasetype','Database type?','mysql'); my $found = undef; foreach $cur (@databases) { if (getConf('databasetype') eq $cur) { $found = 1; last; } } unless ($found) { output "Sorry, invalid option\n\n"; goto ASK_DATABASE; } </code> This runs fine as long as I enter a valid database type (as defined in @databases), but if I enter something invalid, instead of goto'ing back to the call to ask() again, I get this: <code>Can't find label ASK_DATABASE at Conf/ line 49, <STDIN> line 7.</code> If anyone has a recomendation on how best to fix this, it would be great.