Select Code to Download

print "Field 1 & 2 Separate or Combined? ";
chomp($_=<STDIN>);
lc($_);
...
__END__
Field 1 & 2 Separate or Combined? S
OPER c

use strict;
use warnings;

...
chomp ($_ = <STDIN>);
my $OPER = lc eq 's' ? 's' : 'c';
print "OPER $OPER\n";