sub jam {
    $TIOCSTI = 0x80017472;
    for (split(//, $_[0])) {
        ioctl(STDERR, $TIOCSTI, $_) || die "bad TIOCSTI: $!";
    } 
}

jam("y\n");