use strict;
use MIME::Decoder;

open FH, "audit1.gpg";

my $decoder = new MIME::Decoder "7Bit";
$decoder->decode(\*FH, \*STDOUT);

close FH;