I've used IPC to run commands and capture output. On occaision I needed to get input to the command I'm running. What I did was use a local STDIN:

 print "Insert blank cdrom ,press enter\n" 
     {
       local *STDIN;
       open( STDIN, "< /dev/tty" );
       my $ok = <STDIN>;
     }
[download]