html(name=>img,src="../hosted/image1.gif",width=>16,height=>16);
sub html
{
   %param = @_;
   print "<$param{name} ";
   foreach $key (keys (%param))
   {
     print "$key=\"$param{$key}\" ";
   }
   print ">\n";
}