use IPC::Run qw(run);

run([$program1, $file1], '|',
    [$program2, '-x', '-y'], '|',
    [$program3], ">$file2", '2>/dev/null')
    or die "Error: $?";