#!/usr/bin/perl
                                                                                
use warnings;
use strict;

use lib '../lib';

use Mail::Message;
                                                                                
my $mail = Mail::Message->read(\*STDIN);
warn "here!";
                                                                                
$mail->head->study("Content-type");

