If you find a way around using that nasty open FOO,"<$0";

That's not too difficult, just use the DATA filehandle:

#!/usr/bin/perl
seek DATA, 0, 0;
undef $/;
print <DATA>;
__DATA__
[download]

But I don't know if you can still make a nice snake with that ...

-- Hofmator