my $line = <>;
  while (defined($line = <>)) {
    chomp($line);
    my @items = split /:/ $line;
#   print "Customer Data: $line\n";
  }