1. #!/usr/bin/perl
  2. use CGI qw(:standard);
  3. my $ip = $ENV{'REMOTE_ADDR'};
  4. print header('text/javascript');
  5. print qq{ var bl_user_ip = '<a href="http://bislinks.com" title="Your IP is $ip. Powered by BISLINKS.com" style="text-decoration:none;">$ip</a>'; };