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

##</code><code>##

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

##</code><code>##

my $sth = $dbh->prepare('SELECT * FROM charge WHERE column1 = $cptcode AND column2 = $cpt2code’)