Perl while yes or no

yes_or_no.pl

#!/usr/bin/env perl

use strict;
use warnings;

my $file = './test.txt';

if ( -e $file ) {

    print "allow overrite ok ? [y/n] : ";

    while ( my $ans = <> ) {
        chomp($ans);
        if ( $ans eq "y" ) {
            open my $ofh, '>', $file;
            print "ok\n";
            print $ofh "ok";
            last;
        }
        elsif ( $ans eq "n" ) {
            print "goodbye.\n";
            exit;
        }
        elsif ( $ans ne "y" && $ans ne "n" ) {
            print "allow overrite ok ? [y/n] : ";
        }
    }
}