That's because perl5db.pl is doing that itself. If you want to do that, you can do something like:

open SELF, $0;
@lines = <SELF>;
close SELF;

# or, more sneakily

open 0;
@lines = <0>;
close 0;
[download]

japhy -- Perl and Regex Hacker