#Get first input
print "Enter cpt code> ";
my $cptcode = <STDIN>;