I wonder whether line 40 might be this one, in "sub start...":

    my %database     = %{ $$self->{'DATA'}; };
[download]

If so, you should try "$self" instead of "$$self" there. The extra "$" was probably a mistake. (The extra semi-colon, immediately following {'DATA'}, might also be a mistake, which might show up as such when you fix the sigil problem...)