>>154
何故そんなに IO::* を使いたがるんだ?

http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perldata.html#Scalar_value_constructors
> __END__ および __DATA__ というトークンは、実際のファイルの終端より
> 前にある論理的なスクリプトの終端を示すために使うことができます。
> これらの後にあるテキストは無視されますが、ファイルハンドル DATA を
> 通して読み出すことができます。__END__ に対しては main::DATA 、
> __DATA__ に対しては PACKNAME::DATA (ここで PACKNAME はカレント
> のパッケージ名です) を使います。

IO::File::new() の中で IO::File::open() が呼ばれ、その中で
open($fh, '<&DATA') されるから、君の渡した '<&DATA' は
*IO::File::DATA をコピーしている。

#!/usr/local/bin/perl -w
use strict;
my $fh = \*DATA;
print <$fh>;
__DATA__
blah, blah, blah...