Select Code to Download

sub TIEARRAY {
    my $class=shift;
...

    return $self;
}

sub TIEARRAY {
    my($class, $bits, $vec) = @_;
...

    return $self;
}