#!/usr/local/bin/perl

 print <<__HTM__;

Content-type: text/html

<script language='JavaScript'>

  var ip    = '$ENV{"REMOTE_ADDR"}'     ; //←ここでperlでJavaScript用の値を書き込む。
  alert('IPアドレスは: '+ ip +' です')

</script>

__HTM__