in reply to Help with Perl/Javascript

I have some suggestions about your code
  1. If you are using "use CGI qw(:standard);", don't use this: 
    print "Content-type: text/html\n\n";

    [download]
    Use the CGI interfece: 
    print header();

    [download]
  2. Don't use multiple prints, if it is possible to use a single statement. Also if you can group strings, use qq//: 
    #!/usr/bin/perl
use warnings;
use CGI qw(:standard);
print header();
print qq~<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<title>TPD-UTA TESTER</title>
</head>
<body>
<script type="text/javascript" src="wz_jsgraphics.js"></script>
<script type="text/javascript" src="line.js"></script>
<div id="lineCanvas" style="overflow: auto;position:relative;height:30
+0px;width:400px;">

<script type="text/javascript">
var g = new line_graph();
g.add('1', 145);
g.add('2', 0);
g.add('3', 175);
g.add('4', 130);
g.add('5', 150);
g.add('6', 175);
g.add('7', 205);
g.add('8', 125);
g.add('9', 125);
g.add('10', 135);
g.add('11', 125);
g.render("lineCanvas", "Line Graph");
</script>
</body>
</html>
~;

    [download]
  3. Don't load a module if it is not used (HTML::Template)
  4. The language is "JavaScript" not "Java script"

In Section Seekers of Perl Wisdom