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