open my $bounced_message, '<', $full_name" or die $!;
...
my $bounce = eval { Mail::DeliveryStatus::BounceParser->new($bounced_message); 
+};