Select Code to Download

sub get_customer
{
...
   }
   return(\@customer);
}

sub print_results
{
my ($customer) = @_;
print table ({-border => 0},