sub sendPhoneToDirectory {
   # sends the phone number to the company directory, using SSN as
   # the key
   my $self = shift;
   
   my $dir = My::Directory->new();
   my $entry = $dir->getEngtryBySSN( $ssn{ id $self } );
   $entry->phone( $phone{ id $self } );
   $entry->commit;
}