It doesn't work at all in Perl files with a __DATA__/__END__ section.

And, you could wrap it in a END section. That way it has more chance of actually being run.