CICADA 3301 2014 RSA Perl Script p, q, RSA already in

##!/usr/bin/perl

use Crypt::RSA;

use Crypt::RSA::ES::OAEP;

use Crypt::RSA::Key::Private;

use Crypt::RSA::Key;

use Math::Pari ':int';

use Crypt::RSA;

my $rsa = new Crypt::RSA;

my $keychain = new Crypt::RSA::Key;
my ($public, $private) = $keychain->generate (
                                'p' => '97513779050322159297664671238670850085661086043266591739338007321',
                                'q' => '77506098606928780021829964781695212837195959082370473820509360759',
				'e' => '65537',
                             ) or die $keychain->errstr();

my $plaintext = $rsa->decrypt (
         Cyphertext => "-----BEGIN COMPRESSED RSA ENCRYPTED MESSAGE-----
Version: 1.99
Scheme: Crypt::RSA::ES::OAEP

eJwBswBM/zEwADE2MgBDeXBoZXJ0ZXh0LE2jxJS1EzMc80kOK+hra1GKnXgQKQgVitIy8NgA7kxn
2u8jNQDvlu0uymNNiu6XVCCn66axGH0IZ9w4Af3K/yRgjObsfA1Q7QqpXNALJ9FFPgYl5rh07cBP
M9kbSH6DynU/5cYgQod2KymjWcIvKx3FkjV4UOGakDnBf1eQp1uwvn3KxDVwTyzPqbMnZvOA06Ec
AfKtyz1hEK/UBXkeMeVrnV5SQQ==
=yTUshDMKN65aPaKAR0OU8g==
-----END COMPRESSED RSA ENCRYPTED MESSAGE-----",
         Key => $private,
         Armour => 1,
		) or die $rsa->errstr();

print $plaintext;