use Mail::Field;
use MIME::Head;
use strict;
my $file="c:/batch/perl/temp2_file.txt";
my $testhead = MIME::Head->from_file("$file");
my $name = $testhead->get("Content_Disposition.filename");
my $mime_type=$testhead->mime_type;
my $mime_encoding=$testhead->mime_encoding;
my $boundary=$testhead->multipart_boundary;
print "MIME TYPE = $mime_type\n";
print "MIME ENCODING = $mime_encoding\n";
print "BOUNDARY = $boundary\n";
print "FILE NAME = $name\n";