#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
use Win32;
use Win32::Process;
if (
	Win32::Process::Create(
		my $ProcessObj,
		'd:\FFmpeg\bin\ffmpeg.exe',
		'ffmpeg -i "d:\ein musikvideo.mp4" -filter_complex "[0:v]fade=t=out:st=229:d=4[v]; [0:a]afade=t=out:st=229:d=4[a]" -map "[v]" -map "[a]" -f mp4 "d:\ein neues video.mp4" 2>out.txt',
		0,
		Win32::Process::NORMAL_PRIORITY_CLASS(),#|Win32::Process::DETACHED_PROCESS(),
		'.',
	)
) {
	my $pid;
	if ($pid = $ProcessObj->GetProcessID()) {
		say "PID erhalten: $pid";
	}
	else {
		die 'Kann PID zum Kindprozess nicht ermitteln (Zeile '.__LINE__.')';
	}
}
else {
	die "Kann Verarbeitungsprozess nicht starten: '"
		.Win32::FormatMessage(Win32::GetLastError())
		."' (Zeile ".__LINE__.')'
	;
}