#!/usr/bin/perl
use strict;
use warnings;


foreach my $prompt (
    "eat tacos for sustenance",
    "eat ham for sustenance",
) {
    eval {
        local $SIG{INT} = sub {
            die "caught sig\n";
        };
        print "$prompt: ";
        chomp(my $ans=<STDIN>);
        print "\nans = $ans\n";
    };
    if($@ eq "caught sig\n") {
        print "\nDo you really want to quit? ";
        my $ans = <STDIN>;
        exit(1) if($ans =~ m/^y/i);
        redo;
    }
}