Report question

Question: How can I fake STDIN in Perl?