I've found the problem here; the key ring needs to be provided as an argument to the new() function. This worked for me:

my $gpg = Crypt::OpenPGP->new( PubRing => './trikey.pub' )
  or die "Cannot create Crypt::OpenPGP object: $!";
[download]

_______________
DamnDirtyApe

Those who know that they are profound strive for clarity. Those who
would like to seem profound to the crowd strive for obscurity.
            --Friedrich Nietzsche