Select Code to Download

#!/usr/bin/perl -w

...
while ( ($addy, $owner) = each %email_owners) {
  print "Owner: $owner\nEmail: $addy\n";
}