{
    print "Do you want to continue([yn]): ";
    chomp(my $answer = <STDIN>);
    Edit("bar.txt") if $answer =~ /^y/i;
    exit if $answer =~ /^n/i;
    redo;
}