Select Code to Download

    To      => join(", ", @$em),

#!/usr/bin/env perl
use strict;
...

my $tostring = join ',', @to;
print "Full list of addrs: $tostring\n";