>pl_test/875438.pl

Enter your choice: 4
INVALID CHOICE

Enter your choice: 3
INVALID CHOICE

Enter your choice: 2
$choice: 2

>