Select Code to Download

...
my $o = "";
...
    $o .= $_.' ';
}
print $o."\n";

...
my $o = "";
...
    $o .= $_;
}
print $o."\n";

my $c = 0;

...
    print STDERR "Call ($c) fetching the element with index: $index\n"
+;
    return $self->[ $index ].$c;
}