Just read from the <DATA> filehandle. :-) Something along the lines of:

while (<DATA>) {
    print "From Data: $_\n";
}
__DATA__
This
Is
Lieutenant
Data
[download]

------
We are the carpenters and bricklayers of the Information Age.

Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement.