gistfile1.sh

function cpan-uninstall {
    perl -MConfig -MExtUtils::Install -le '
    ($FULLEXT = shift) =~ s{::}{/}g;
    if ($_ = $ENV{PERL_MM_OPT}) {
        s/INSTALL_BASE=//;
        $_ .= "/lib/perl5/$Config{archname}/auto/$FULLEXT/.packlist";
    }
    else {
        $_ = "$Config{sitearchexp}/auto/$FULLEXT/.packlist";
    }
    uninstall $_, 1' $1
}