#!/usr/bin/perl
use lib '..';

use constant FILE_NAME => 'TPR.pdf';
use constant FILE_MIME_TYPE => 'application/pdf';

use strict;
use warnings;
use Mail::Message;

open(FILE, "<", FILE_NAME) or die "Unable to open file for reading: $!\n";
my $field = Mail::Message::Field->new('Content-Disposition' => 'attachment',
    filename => FILE_NAME);

my $data;
{
  local $/ = undef;
  $data = <FILE>;
}

open(OUT, ">", FILE_NAME . '-old') or die "Unable to open file for writing: $!\n";
print OUT $data;

close(FILE);
close(OUT);

my $msg = Mail::Message->buildFromBody(Mail::Message::Body->new(data =>
$data, mime_type => FILE_MIME_TYPE));
$msg->printStructure;
$msg->head->print;

open(OUT, ">", FILE_NAME . '-enc') or die "Unable to open file for writing: $!\n";
$msg->print(\*OUT);
close(OUT);

open(OUT, ">", FILE_NAME . '-new') or die "Unable to open file for writing: $!\n";
$msg->decoded->print(\*OUT);
close(OUT);

