#!/usr/bin/env perl

#     $Id: practical_perl.pl,v 1.5 2017/07/10 17:37:57 karl Exp karl $

use strict;
use warnings;
use feature qw(say);

$SIG{INT} = sub { die q(Nuff said!); };

say q(Did you post some valid code today?);

my $answer;

ANSWER: { chomp( $answer = <STDIN> ) }

$answer = lc $answer;

my %dispatch = (
    'yes'  => sub { say q(Good!) },
    'no'   => sub { say q(Bad!) },
    'nada' => sub { say q(Answer yes or no!); goto ANSWER; }
);

( $dispatch{$answer} || $dispatch{nada} )->();

__END__
[download]