Whats the deal with this line:

foreach my $mail ( @mail ) {
[download]

or this :

my @mail;
@mail = @_;
[download]

Why not just say:

foreach my $mail (@_) {
[download]

and using $mail as the looping element of @mail is kind of silly... I dont know that perl would even let you do that (at least not with strict and warnings).

--
Laziness, Impatience, Hubris, and Generosity.