Reinstall all perl XS-modules, for example after upgrade perl version(App::cpanminus need).

upgrade_perl_modules.pl

#!/usr/bin/env perl
use strict;
use File::Find;
my @modules=();
my %hash=();
find(\&wanted,@INC);
sub wanted
{
    push @modules, $1    if ($File::Find::name =~ /.*?auto\/([A-Z]([\w\d_\/]+)?)\/[\w\d_]+\.so$/);
}
my @uniq=grep{!$hash{$_}++} @modules;
for my $module (sort @uniq)
{
    $module =~s/\//\:\:/g;
    system("cpanm --reinstall ".$module);
}
print "[finish]";