#!/home/vobadm/perl5/bin/perl -w<BR>
<BR>
use CGI qw/:standard/;<BR>

<BR>
my $q = CGI->new();<BR>
<BR>
use strict;<BR>
use warnings;<BR>
<BR>
my $foo = "abc";<BR>
<br><br>
print "<script type='text/javascript'><BR>
    function changeText(str) {<BR>
          alert("FOO = " + str); // this equals "abc" <br>
         var bar = str;<BR>
          bar = "xyz";<BR>
           return bar; <BR>
   }<BR>
</script>";<BR>

print "<table align='center' border='10' >"; <BR>
print "<td width='40%'><select id='buildSelection1' onchange='changeText(\"$foo\");'>"; <BR>

<p>