#!/bin/bash
perllibpath="/usr/lib/perl5/vendor_perl/auto/"

tmpdir=$(mktemp -d /tmp/find-broken-perl-package.XXXXXXXX)
touch $tmpdir/{raw,perl-modules}.txt
find "$perllibpath" -name "*.so" |
 sed \
 -e "s|$perllibpath||" \
 -e 's|/|::|g' \
 -e 's|.so$||' \
 -e 's|\(.*\)::.*$|\1|' |
	while read module; do
		output=$(perl -M$module -e1 2>&1)
		if grep -q "perl: symbol lookup error:" <<< $output; then
			sed -n 's|perl: symbol lookup error: \(.*\): undefined symbol: .*|\1|p' <<< $output >> $tmpdir/raw.txt
			echo $module >> $tmpdir/perl-modules.txt
		fi
	done

pacman -Qqo $(<$tmpdir/raw.txt) &> $tmpdir/pacman.txt

echo "tempdir is \"$tmpdir\""