Perl実行中に STDIN にデータをつっこんで、
取り出したいんですがそんなことできますでしょうか？

イメージとしてはこんな感じなのですが↓
print STDIN "unko";
print <STDIN>; # unkoを表示