#! /usr/bin/perl

use 5.010;
use strict;
use warnings;

use lib "lib";
use Message::2822;

my $message = Message::2822->new(file => shift);

say join "\n", $message->header_content("content-type:");
