close(STDIN); open(STDIN, 'foo'); print $_ foreach();