$spam++;
} else {
$saved++;
- my $from = [@{$headers{'from'}}]->[-1];
- my $subject = [@{$headers{'subject'}}]->[-1];
+ my $from = '';
+ my $subject = '';
+ # Sometimes these headers are missing...
+ eval { $from = [@{$headers{'from'}}]->[-1] };
+ eval { $subject = [@{$headers{'subject'}}]->[-1] };
for ($from, $subject) {
tr/\x00-\x1f\x80-\xff/ /;
}