You could close STDIN and re-open it as a normal filehandle:

close(STDIN);
open(STDIN, 'foo');
print $_ foreach(<STDIN>);
[download]

The documentation for 'open' shows how to save and restore filehandles, and some other dirty tricks you can play.