First guess,

in FETCH try

sub FETCH {
  my ($self, $idx) = @_;
[download]

I don't know about anyone else, but I rely heavily on print statements to debug code ('ghetto debugging') especially in perl (C compile times can make this painful).

-jackdied