in reply to Re: Re: Multiple STDIN sources
in thread Multiple STDIN sources

that's easy enough, fortunately. just change the open line from Abigail's code to read: 
if($^O eq 'MSWin32') {
    open(STDIN, "CON") or die $!;
} else {
    open(STDIN, "/dev/tty") or die $!;
}

[download]
cheers,
Aldo

King of Laziness, Wizard of Impatience, Lord of Hubris

In Section Seekers of Perl Wisdom