sub writeError { print STDERR @_; print FILE @_; # yes I know that should be Mail::Mailer, but I don't know its syntax open MAIL, '|/usr/sbin/sendmail admin' or die; print MAIL @_; close MAIL; }