Shell STDIN umleiten

Hallo - gerade vorgestellt und schon die erste Frage :)

Ich bin gerade dabei für mein Wine eine Art Frontend zu schreiben, welches ein paar performanceverbessernde Dinge beinhaltet (eigener xserver undso ;) ) , nur scheitert es gerade so ein bisschen daran, dass ich gerade erst mit Perl anfange. Was ich nun möchte ist die Möglichkeit, eine Shell zu starten und dort meine Befehle auszuführen.
Ich habe nun also versucht das
http://docstore.mik.ua/orelly/perl/cookbook/ch16_05.htm
umzusetzen. Mein Problem ist nur, dass die Shell zwar startet, auf Eingaben durch STDIN aber nicht reagiert. Hilfe? :)