Anyway, let us know if you'll find something details about that magic. ;-)

You're so lazy, LanX ;) I'm sure you could do it yourself, but if you insist...

# main.pl
BEGIN {
    $^P = 0x400;
}
use test ();
[download]

and

# test.pm
my @source = @{ $main::{ '_<' . __FILE__ } };
print for @source;
1;
[download]

Now, the thing is, you have to set $^P before the file (test.pm in this case) is even opened. So you can't do it inside test.pm itself, I don't think...

Is that good enough for you?