if($^O eq 'MSWin32') {
    open(STDIN, "CON") or die $!;
} else {
    open(STDIN, "/dev/tty") or die $!;
}