#!/usr/bin/perl 

use Email::MIME;
use warnings;
use strict;

unless ($ARGV[0] and -f $ARGV[0]) {
	die "pass in the filename of the email as an argument.";
}

open FILE, "<$ARGV[0]"; 
undef $/; 
my $email = <FILE>; 

my $parsed = Email::MIME->new($email);
my @parts = $parsed->parts; 
foreach my $el (@parts) { 
	print $el->body; 
	last; 
}