perl does have a __BEGIN__ token. You just have to start it with the -x option.

% perl -x
Here there be data.

More of it.

__BEGIN__
#!/usr/bin/perl -wl

use strict; # yeah.

print "Hello, world.";
__END__
^D
Hello, world.
[download]