The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More tests => 3;
use HTML::StickyQuery;

{
    my $s = HTML::StickyQuery->new;
    $s->sticky(
       file => './t/test2.html',
       param => {
	   SID => 'xyz',
	   foo => 'baz'
       }
    );
    like($s->output, qr/SID=xyz/);
    like($s->output, qr/foo=baz/);
}

{
    my $s = HTML::StickyQuery->new(keep_original => 0);
    $s->sticky(
       file => './t/test2.html',
       param => {SID => 'xyz'}
    );
    like($s->output, qr#<a href="\./test\.cgi\?SID=xyz">#);
}