Select Code to Download

use IPC::Open2;

my $pid = open2(*OUTPUT, *INPUT, "program.exe");
while (my $line = <OUTPUT>) {
    print INPUT 'f' if /Abort\/Retry\/Ignore/;
}