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

##</code><code>##

print MAIL ".\n";