Help for this page

Select Code to Download

Select or download this

$userInput = <STDIN>;
chomp $userInput;
$userInput = uc $userInput;

Select or download this

my %pbactions = (
    L    => \&list_phone_book,
...

defined $pbactions{$userInput} ? $pbactions{$userInput}->()
                               : usage();