## begin mymodule.pm

package OtherModule::MyModule;
use OtherModule;

@OtherModule::MyModule::ISA = qw (OtherModule );

sub new {
  my $self = $_[0] -> SUPER::new(@_[1..$#_]);

  ${ $self -> ${ _count } }--;
  $self -> { _count } = \$_count;
  ${ $self -> ${ _count } }++;

  $self;
}

### begin myscript.pl

use OtherModule;
use OtherModule::MyModule;

our $object = OtherModule::MyModule -> new ( qw( foo bar baz bletch ) );