Perl: How to automate answer to prompt when using system function

following example for using system() to call windows command system "echo Y|command_that_prompts"; eg:- system "echo Y|cacls dir /P administrator:F";