(Perl) Extract a File from a .p7m (PKCS7 Signed-Data)

Perl example to extract the original file from a .p7m (Signed-Data PKCS7 Format) The .p7m contains the signed contents of the original file. It can be verified and restored by calling VerifyP7M.

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();

$crypt = new chilkat::CkCrypt2();

#  Any string argument automatically begins the 30-day trial.
$success = $crypt->UnlockComponent("30-day trial");
if ($success != 1) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

$outFile = "/Users/chilkat/testData/pdf/sample.pdf";
$inFile = "/Users/chilkat/testData/p7m/sample.pdf.p7m";

#  Verify and restore the original file:
$success = $crypt->VerifyP7M($inFile,$outFile);
if ($success == 0) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

print "Success!" . "\n";