Just another example of why you shouldn't copy globs containing open file handles. It is tempting because the syntax is so terse, but there are just too many ways that it fails. Use this instead:

open STDIN, "<&DATA" or die "Can't dup DATA to STDIN: $!\n";
print for <>;
__END__
This *is* printed.
[download]