$testo=qq(<a href="/cgi-bin/a_test/test.cgi?id=$id&fred=wombat">$testo</a>);

##</code><code>##

foreach(param())
{
    print "$_ = ".param($_)."<br>\n";
}

##</code><code>##

id = [whatever was in $id]
fred = wombat