#!/usr/bin/perl

use strict;
print "type-in bec : 0(Endcap C), 1(Barrel), 2(Endcap A) --> ";
my $bec = <STDIN>;
print "bec=$bec \n";


print "type-in layer/disk : 3-6(Barrel),1-9(Endcap) ---> ";
my $layer = <STDIN>;
print "layer/disk= $layer \n";



====================================
$ perl command_IN.pl
type-in bec : 0(Endcap C), 1(Barrel), 2(Endcap A) --> 5
bec=5

type-in layer/disk : 3-6(Barrel),1-9(Endcap) ---> 4
layer/disk= 4