HTML::StickyQuery
aタグのURLにアレを自動でつけてくれる人。
my $s = HTML::StickyQuery->new(
regexp => '\.cgi$',
abs => 0,
keep_original => 1,
);
my $q = CGI->new;
print $s->sticky(
file => 'foo.html',
param => $q,
sticky_keys => [qw(SESSIONID)]
);
http://search.cpan.org/~ikebe/HTML-StickyQuery-0.12/StickyQuery.pm