hossman@coaster:~$ cat monk.pl seek DATA, 0, 0; print __DATA__ print seek DATA, 0, 0; hossman@coaster:~$ perl monk.pl seek DATA, 0, 0; print __DATA__ print seek DATA, 0, 0;