It's the oddest thing, but when I use this bit of code with a small and simple script, it works as expected. However, when I use it in my script with 6,500 lines of code, it works, but I have to hit enter three times after hitting "N" to resume the script (Y and every other key work as expected...). There must be something wrong in my code, but it's far too much to put in here. Anyway, would you agree that this is a more concise way of figuring out if user is entering Y or N, and are there other better ways of doing it??

# define signal handler to catch contol-c
$SIG{'INT'} = 'catch_int';
sub catch_int {
    my $ans;
    system("clear");
    while ($ans !~ /[Nn]/) {
        print "Do you want to exit [y or n]? ";
        chomp($ans=<STDIN>);
        if ($ans =~ /[Yy]/) {
            exit(0);
        }
    }
}
[download]