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

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

#Get Second input
print "Enter cpt2 code> ";
my $cpt2code = <STDIN>;

if ( ($cptcode != “”) && ($cpt2code != “”)) {
        my $dbh = DBI->connect('dbi:mysql:mydatabase:localhost:3306','
+abc','xyz') or die "Couldn't connect to database: " . DBI->errstr;
        my $sth = $dbh->prepare('SELECT * FROM charge WHERE column1 = $cptcode AND column2 = $cpt2code’)
                or die "Couldn't prepare statement: " . $dbh->errstr;

                 $sth->execute()    # Execute the query
                or die "Couldn't execute statement: " . $sth->errstr;

        # Read the matching records and print them out
        while (my @data = $sth->fetchrow_array()) {
                my $cptanswer = $data[1];
                my $insid = $data[2];
                my $preauth = $data[3];
                my $updated = $data[5];
                print "\t$cptanswer\t$insid\t$preauth\t$updated\n";
        }

        if ($sth->rows == 0) {
                print "No names matched `$cptcode'.\n\n";
        }

        $sth->finish; 

        $dbh->disconnect;
}