Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
} else {
    print "\$choice: $choice \n";
}

>pl_test/875438.pl

Enter your choice: 4
...
$choice: 2

>