###############################
sub printheader{
    unless($CONF{defcharset}){
        print $q->header;
    }else{
        print $q->header( -charset=>$CONF{defcharset});
    }
}