Help for this page
my $file = File::Spec->catfile(dirname(__FILE__), "CA", "cacert.pe +m");
my $file = File::Spec->catfile(dirname($INC{'Mozilla/CA.pm'}), "CA +", "cacert.pem");