Select Code to Download

    my $file = "emails.txt";
    open(FILE, $file) or die "cannot open $file : $!\n";
...
if ($address ne $content[-1]){print ", "}
}
print "</textarea>";

..
my $counter=0;
...
if ($counter < @content){print ", "}
}
..