use IPC::System::Simple qw/capturex/;
my $text = capturex('libreoffice',
	'--convert-to', 'txt:Text (encoded):UTF8',
	$filename, '--cat', '--headless');
utf8::decode($text);
$text=~s/\A\x{FEFF}//;  # remove BOM