or download this
my $mysecring = Crypt::OpenPGP::KeyRing->new(Filename => $CONFIG{priva
+tekey}) or handleError( "Error: ".Crypt::OpenPGP::KeyRing->errstr,1);
my $mypubring = Crypt::OpenPGP::KeyRing->new(Filename => $CONFIG{publi
+ckey}) or handleError( "Error: ".Crypt::OpenPGP::KeyRing->errstr,1);
...
close FILE;
}
}