1 #! /usr/bin/perl

     2 

     3 use 5.010;

     4 use strict;

     5 use warnings;

     6 

     7 use lib "lib";

     8 use Message::2822;

     9 

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

    11 

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