<% my ( %opt ) = @_; my $url = $opt{'url'}; #my $action = exists $opt{'action'} ? $opt{'action'} : 'GET'; #my @subs = @{ $opt{'subs'}; $url .= ( ($url =~ /\?/) ? '&' : '?' ). 'sub='; %>