my $pr1 = qq{select customer_name from customer where id = ? };