# use strict;use warnings;

# ((setitle ANOTHERNAME))

$::inline_plugin{setitle} = sub {
    my ($request,$newtitle) = @_;

    foreach ( @::html_header ){
        if( /^<title>/ ){
            $_ = '<title>' . &::enc($newtitle) . '</title>';
            last;
        }
    }
    '';
};