package Employee;
sub ssn {
  my $self = shift;
  my $ssn = $self->SUPER::ssn;
  $ssn =~ s/(\d{3})(\d{2})(\d{4})/$1-$2-$3/;
  return $ssn;
}