print < EOSCR ##

##















  
    Something of interest
  




JS-Examples.com




##

##

use CGI qw (:all -nph);

print header();
print start_html(-title=>'JAVA TEST',-script=>{ -src=> 'java.js'});

my @ar = qw (alpha beta gamma delta);

foreach my $it (@ar)  {
 print table(Tr(td(a({-href=>"#",-onMouseOver=>"popup(b($i),'green')",-onMOuseOut=>"removeBox()"},$it))));
}

print end_html();