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

# 875438

START: print "\nEnter your choice: ";
my $choice = <>;
chomp ($choice);

if ( $choice != 1 && $choice != 2 ) {
	print "INVALID CHOICE\n";
	goto START;
} else {
	print "\$choice: $choice \n";
}


##</code><code>##

>pl_test/875438.pl

Enter your choice: 4
INVALID CHOICE

Enter your choice: 3
INVALID CHOICE

Enter your choice: 2
$choice: 2

>