sub OpenSomething
{
      my ($param) = @_;

      # What kind of an idiot would forget the foo parameter!
      return unless (defined $param->{foo});

      my $thing = new Object ($param->{foo}, $param->{zoo});
      $thing->open($param->{foozoo});

      return $thing;
}

sub CloseSomething
{
      my ($thing) = @_;
      $thing->close();
}

##</code><code>##

sub CloseSomething
{
      my ($thing) = @_;

      # Maybe they forgot to pass the parameter?
      return unless (defined $thing);

      $thing->close();
}

##</code><code>##

sub OpenSomething
{
      my ($param) = @_;

      # What kind of an idiot would forget the foo parameter!
      die "No 'foo' param passed to OpenSomething()" unless (defined $param->{foo});

      my $thing = new Object ($param->{foo}, $param->{zoo});
      $thing->open($param->{foozoo});

      return $thing;
}

sub CloseSomething
{
      my ($thing) = @_;

      die "Cannot CloseSomething() with undefined parameter" unless (defined $thing);
      $thing->close();
}