sub BEGIN { warn "BEGIN called\n"; }