Pass key using perl stdin pipe