#!/usr/bin/perl

use strict;
use warnings;
use Crypt::OpenPGP::Plaintext;
use Data::Dumper::Concise;

my $data = 'foo bar';
my $file = '/root/Desktop/foo.txt';

my $pt = Crypt::OpenPGP::Plaintext->new(
                   Data => $data,
                   Filename => $file,
                   Mode => 'b',
);
binmode STDOUT, ':encoding(utf8)';

print Dumper(my $serialized = $pt->save);
print Dumper($serialized = $pt->data);