my $headers = $entity->head();
die "No headers in entity!" unless defined $headers;

my $subject = $headers->get('Subject');

$subject ||= '(empty)';

print "Subject is: $subject\n";