pgp->perl -v
This is perl, v5.10.1 (*) built for aix-thread-multi
pgp->perl -V
Summary of my perl5 (revision 5 version 10 subversion 1) configuration:
  Platform:
    osname=aix, osvers=6.1.2.0, archname=aix-thread-multi
    uname='aix powerpc unknown aix '
    config_args='-desr -Dinstallprefix=/usr/opt/perl5 -Dprefix=/usr/opt/perl5 -Dcc=xlc_r -Duseshrplib -Dusethreads'
    hint=recommended, useposix=true, d_sigaction=define
    useithreads=define, usemultiplicity=define
    useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
    use64bitint=undef, use64bitall=undef, uselongdouble=undef

##</code><code>##

3001:input file not found
1080:no private key could be found for decryption
1053:signing key not found
3013:no keys found
3011:invalid passphrase specified
3011:invalid passphrase specified
3090:operation failed, file not found
3028:multiple inputs cannot be sent to a single output file

##</code><code>##

$program_output3 = `pgp --<various arguments>`;

if($program_output3 ~~ /"file wiped successfully"/i)
{
	print "File encrypted successfully\n";
}
elsif($program_output3 ~~ /"operation failed, file not found"/i)
{
	print "signing key is not found?";
}
elsif($program_output3 ~~ /"no keys found"/i)
{
	print "Please check if the customer's signing key exists on our ring";
}