use strict;
use warnings;
use Data::Dumper;
use Mail::Header;
my $messagefile = "mail"; #here the mail is a file which contains s data as this is for testing
open(MESSAGE,"$messagefile") or
die "Unable to open $messagefile:$!\n";
my $header = new Mail::Header \*MESSAGE;
print Dumper \$header;
close(MESSAGE);