open (NEW, 'mail.tmp') or die "Cannot open mail.tmp: $!\n";
if (defined(my $line = <NEW>)) {
    Yes_Mail();
}
close NEW;