Select Code to Download

sub OpenSomething
{
      my ($param) = @_;
...
      my ($thing) = @_;
      $thing->close();
}

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

      $thing->close();
}

sub OpenSomething
{
      my ($param) = @_;
...
      die "Cannot CloseSomething() with undefined parameter" unless (d
+efined $thing);
      $thing->close();
}