blah@blah.com
blah@somedomain.com
blah@johndoe.com

##</code><code>##

	my $file = "emails.txt";
	open(FILE, $file) or die "cannot open $file : $!\n";
	@content = reverse (<FILE>);
	close FILE;

print "<textarea cols=\"75\" rows=\"22\">";
foreach $address (@content) {
chomp($address);
print "$address, ";
}
print "</textarea>";

##</code><code>##

blah@johndoe, blah@somedomain.com, blah@blah.com,