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

##</code><code>##

my $writer = param('writer')
# or
my $writer = $cgi->param('writer');
# etc.

##</code><code>##

my $var = param({'this'});