$sth_imei = $dbh->prepare_cached(<<__EOSQL__) or die "Couldn't parse query:".$sth_imei->errstr; 
SELECT imei 
FROM imei_period 
WHERE (mobile_number = :mob) AND 
	  (account_no = :acc)
__EOSQL__

    $sth_imei->bind_param( ':mob', $rec[1] );
    $sth_imei->bind_param( ':acc', $rec[0] );
	
    $sth_imei->execute() or die "Couldn't execute query:" . $sth_imei->errstr; 

    @imei = $sth_imei->fetchrow_array;
    print "IMEI : @imei\n";