my $writer = param{'writer'};
my $title = param{'title'};
my $text = param{'text'};
my $current = param{'current'};