change:

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

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

to:

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

my $dbh = WebDB::connect ();