use strict;

use Crypt::OpenPGP;
use Data::Dumper;
use MIME::Tools;
use MIME::Decoder;
use IO::Wrap;

$|++;


&decode;

sub decode {

    my $decoder = new MIME::Decoder "quoted-printable";

    my ($text, $outtext);
    {
    local $/;
    open(my $fh, '<', 'orders.txt') or die "Problem:$!";
    $text = <$fh>;
    }
    $text = wraphandle($text);
    $outtext = wraphandle($outtext);

    my $decoded = $decoder->decode( $text, $outtext);