I'm curious to see your syntax errors from adding to the BEGIN block. I created a simple Mytest.pm and could add to BEGIN without errors.

package Mytest;
sub is_even {
    return 1;
}
return 1;
[download]