#! perl -nlw
$i=length;
if($i>200){
    die "LINE TOO LONG";
}
$total+=$i;
if($total>10000){
    die "MESSAGE TOO LONG";
}
if ($.>200) {
    die "TOO MANY LINES";
}
if (/[^ -~]/){
    die "NONPRINTABLE CHARACTER";
}
