change:

sub get_customer
{
my ($dbh, $customer_id) = @_;

$dbh = WebDB::connect ();
...

to:

sub get_customer
{
my ($customer_id) = @_;

my $dbh = WebDB::connect ();

##</code><code>##

if ($choice eq "submit")            # customer submitted order number
{
    get_customer ();
      print_results ();
}
else
...

becomes:

if ($choice eq "submit")            # customer submitted order number
{
    my $cutomer = get_customer($customer_id);
    print_results($customer);
}
else
...

##</code><code>##

sub print_results
{
my $customer = get_customer($customer_id);
...

becomes:

sub print_results
{
my $customer = @_;