use CGI;
my $cgi = CGI->new ();
my $js = <<'JS';

function reportCreate()
{

var currenturl = document.URL;
var url = "https://autoreport.com:8001/cgi-bins/createReport.pl?url="+currenturl;

window.location.href = url ;

return 1;

}


JS

print qq{<script type = "text/javascript">$js</script>};


print $cgi->a({-href=>"javascript:void(0);", -onclick => "reportCreate();" }, 'Create Report
<br>');
  print qq{<TABLE BORDER=1><TR BGCOLOR="#D0D0D0"><TH ALIGN=LEFT NOWRAP>Name};

  print qq{</TH>};

  ## some Table html code here...please assume 

  print qq{</TABLE>};