See The Evolution of Perl Email Handling for an example based on a reference to an array. I don't know what your file looks like. Maybe you should post the content of the file. Putting the file content in an array and passing the reference to it in the constructor should be straightforward. e.g.

my @message = <FH>;
Mail::Internet->new( \@message );
[download]