Select Code to Download

my $header = 1;
my @entries;
...
{
    print $entry->{msg_id}, join " ", @{$entry->{recipients}},"\n";
}