#!/usr/bin/perl

use strict;
use warnings;
use MIME::Decoder;

my $decoder = new MIME::Decoder '7bit' or die "unsupported\n";
$decoder->decode(\*STDIN, \*STDOUT);