{
    print "enter option here: ";
    chomp(my $answer = <STDIN>);
    redo if $answer ne "quit";
}