Select Code to Download

my $sql = "SELECT time, mastuntemp, LineTemp, spargtemp   FROM brew_te
+mp_tb
                                    WHERE   sitename   =  'Brew' AND  
+batchnumber   =  '$batchnumber' ORDER BY time";

                            
my @data = ( 
    ["08:00","08:10","08:20","08:30","08:50","09:00","09:10", "09:20",
+ "09:30"],# time
...
    [    160,    170,    165,    166,    163,  165,    165,     168,  
+   164],  #spargtemp
  
  )or die GD::Graph::Data->error;

 
#!/usr/bin/perl 

...
print "DEBUG:  \$data = \"$data\"\n";#debug
 my $chart = GD::Graph::lines->new();
  my $gd = $chart->plot($data);

False [] range "\w-" in regex; marked by <-- HERE in m/Can.?t locate \
+./[\w- <-- HERE _]+\.cgi in \@INC/ at graph_debug.cgi line 78.
DEBUG:  $sql = "SELECT time, mastuntemp, LineTemp, spargtemp FROM brew
+_temp_tb WHERE sitename = 'Brew' AND batchnumber = ? ORDER BY
...

<H1>Software error:</H1>
<PRE>Can't call method &quot;add_point&quot; on an undefined value at 
+./graph.cgi line 64.