Look Perlmonks is not a code writing service, we expect you to show efforts to learn programming.

Hint: check on how to open a file instead of reading appended data like in Laurent's demonstration

update

... and/or avoid empty lines after __DATA__ if you are REALLY only running the demo code!