Select Code to Download

use strict; 
use warnings; 
...
print $mailer MFILE;
close MFILE;
close($mailer) or die "Cannot close mailer: $!";

package Stderr;

...
}

1;