print tomail "$line\n";