http://www.perlmonks.org?node_id=358427

Public Scratchpad

Download, Select Code To D/L

---

#!perl
seek DATA,0,0; print <DATA>
__DATA__
[download]