Perl interface to libblkid