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