<%args> $msg => undef <%init> return if length $msg < 10 or length $msg > 102400; my $mail = '/usr/sbin/sendmail -t'; open(F, "| $mail") || return ; print F $msg; close F;