goto???

Hello, I try to use following code to check if a file is already exist, if it exists, then ask user to change file name or override it. I know using 'goto' is not preferred way here, but what's the 'right way' to do so?

Thanks,

Shiping

-------------------------------------------------------------------------------------------------------------------------------------------
my $file = "sumpower\.txt";

if (-e $file ){
warn "The summary file already exist! Wold you like to give another name? (y/n)\n".
"If your answer is 'n' then the file will be overrided. What's your decision?\n";
STARTOVER:
my $answer = <STDIN>;
if ($answer =~ /y/i){
print "What's the new file name?\n";
$file = <STDIN>;
}elsif ($answer =~ /n/i){
unlink $file;
}else {
print "You have given a invalid answer, try again (y/n)\n";
goto STARTOVER;
}
}

open(OUT, "> $file") or die "Cannot open $file - $!";

.