自己出力プログラム

__DATA__の再利用 -こんばんは、皆さん。以下のプログラムは1回しか__D- Perl | 教えて!gooを見て，DATA も seek 出来ると知りました。しかも先頭にシークするとスクリプト自身になるとか。

ですから，

#!/usr/bin/perl

undef $/;
seek DATA, 0, 0;
print <DATA>;
__DATA__

とすると自己出力プログラムのできあがり。最後に「__DATA__」がないとだめなところがあれですけど。