#!/usr/bin/perl

use Email::MIME;

$file = shift;

local( $/, *FILE ) ;
open(FILE, $file);
$message = <FILE>;
close(FILE);


my $parsed = Email::MIME->new($message);

my @parts = $parsed->parts; # These will be Email::MIME objects, too.
my $p = $parts[1]->content_type;
print $p;