sub toggle_door
  {
    my $door_ref = shift;
    if( $$door_ref eq 'Closed' )
    {
      $$door_ref = 'Open';
    } else {
      $$door_ref = 'Closed';
    }
    return $$door_ref; 
  }