close(STDIN);
open(STDIN, "<&=DATA");
while(<STDIN>){
  print "STDIN: $_";
}
__DATA__
Foo
Bar
Quux