Select Code to Download

    open( MAIL,"|$mailprogram -t" )
...

    return close(MAIL);

    foreach (@address) {

...

    }