my $old_fh = select(MAIL);
$| = 1;
select($old_fh);