perl/cgi meta refresh question

$q->start_html ( -title => "Information", -bgcolor => "#ffffff"
                         -meta => {'HTTP-EQUIV'='REFRESH',
                                          'CONTENT'='X;URL=yourpage.html'}
                            ),

forgot a comma, and also put ther number of seconds. ALso, for refresh of the same page, u dont need to code the optional URL

 $q->start_html ( -title => "Information",
                         -bgcolor => "#ffffff",
                         -meta => {'HTTP-EQUIV'='REFRESH',
                                          'CONTENT'='120'}
                            ),

I tried your suggestion, the error I'm getting is:
 Can't modify constant item in scalar assignment at c:\PROGRA~1\APACHE~1\apache\cgi-bin\weather\test\CURREN~1.PL line 12, near "'REFRESH',"
Execution of c:\PROGRA~1\APACHE~1\apache\cgi-bin\weather\test\CURREN~1.PL aborted due to compilation errors.

I think one issue may be that I trying to refresh a page that is created by a perl script, not a .html page.
 
I paste in the entire script which in the end just throws several lines of text onto a webpage. The script works fine without the refresh code in it. I'm using apache on a windows xp box.

Here it is

#!/perl/bin/perl -w
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use CGI::Carp qw(warningsToBrowser);
use Time::Local;

my $q =new CGI;
print  $q->header( "text/html" ),
        $q->start_html ( -title => "Echo7 Current Conditions",
                                -bgcolor => ""#ffffff",
                                -meta => {'HTTP-EQUIV'='REFRESH',      
                                 'CONTENT'='120'}
                               ),
        $q->end_html;



open WEA, "C:/Program Files/HeavyWeather/currdat.lst" or die "Cannot open currdat.lst $!";
open DUMP, ">C:/Program Files/Apache Group/Apache/cgi-bin/weather/test/dump.txt" or die " Cannot open dump.txt $!";

my @wea = <WEA>;
print DUMP @wea;
 
close WEA;
close DUMP;

open DUMP, "C:/Program Files/Apache Group/Apache/cgi-bin/weather/test/dump.txt" or die " Cannot open dump.txt $!";
open DATA, ">C:/Program Files/Apache Group/Apache/cgi-bin/weather/test/data.txt" or die " Cannot open data.txt $!";

my @raw = <DUMP>;

my @tod    = grep/actualisation/, @raw; #get timestamp
my @temp  = grep/deg_F/, @raw;         #get temperatures [0]in [1]out
my @hum   = grep/percent/, @raw;       #get humidity [0]in [1]out
my @pres    = grep/inHg/,@raw;             #get  pressure [0]abs [1]rel
my @winsp  = grep/mph/,@raw;            #get wind speed
my @windr  = grep/name=/,@raw;         #get wind direction

for (@tod)   {s#^.*"(\d+)".*#$1#};
for (@temp)  {s#^.*"(\d+.\d)".*#$1#};
for (@hum)   {s#^.*"(\d+)".*#$1#};
for (@pres)  {s#^.*"(\d+.\d+)".*#$1#};
for (@winsp) {s#^.*"(\d+.\d)".*#$1#};
for (@windr) {s#^name="(.*)".*#$1#};

chomp @hum;
chomp @pres;
chomp @winsp;
chomp @windr;


print DATA $tod[0];
close DATA;

open DATA, "C:/Program Files/Apache Group/Apache/cgi-bin/weather/test/data.txt" or die " Cannot open data.txt $!";
open DATA2, ">C:/Program Files/Apache Group/Apache/cgi-bin/weather/test/data2.txt" or die " Cannot open data2.txt $!";

my $ttt = <DATA>;
chomp $ttt;

#### Need to subtract 2208988860 from the weather stations timeststamp ####

my $timestamp = $ttt - 2208988860;
my $date = localtime $timestamp;

print DATA2 "$date\n";
print DATA2 "Indoor Temperature  $temp[0]";
print DATA2 "Outdoor Temperature $temp[1]";
print DATA2 "Indoor Humidity     $hum[0]%\n";
print DATA2 "Outdoor Humidity    $hum[1]%\n";
print DATA2 "Relative Pressure   $pres[1] inHg\n";
print DATA2 "Wind Speed           $winsp[0] mph\n";
print DATA2 "Wind Direction      $windr[1]\n";
 
close DATA2;

open DATA2, "C:/Program Files/Apache Group/Apache/cgi-bin/weather/test/data2.txt" or die " Cannot open data2.txt $!";

my @data2 = <DATA2>;

print "<pre>",@data2,"</pre>";

close DATA2;

The following   -bgcolor => ""#ffffff",
is in the script correctly as  -bgcolor => "#ffffff",

$q->start_html ( -title => "Information",
                         -bgcolor => "#ffffff",
                         -meta => {'HTTP-EQUIV'=>'REFRESH',
                                          'CONTENT'=>'120'}
                            ),

perl's CGI module has its own idea about meta tags, unfortunately :-(

print start_html(-head=>meta( -title => "Information", -bgcolor => "#ffffff", {-http_equiv => 'Refresh',  -content => 'X;URL=yourpage.html'}));

manav mathur,
 Your last comment returned this error when I tried it:     [Tue Jan 24 21:45:26 2006] [error] [client 192.168.10.7] malformed header from script. Bad header=Indoor Temperature  64.0: c:/program files/apache group/apache/cgi-bin/weather/test/currentfl.pl.        Which looks like progress to me since it at least got some info from the script.

ahoffman,
The error your suggestion returned:
[Tue Jan 24 21:41:58 2006] [error] [client 192.168.10.7] [Tue Jan 24 21:41:58 2006] CURREN~1.PL: Undefined subroutine &main::meta called at c:\\PROGRA~1\\APACHE~1\\apache\\cgi-bin\\weather\\test\\CURREN~1.PL line 9.\n

> .. Undefined subroutine &main::meta called ..
either ther is a typo in your perl script, or you have a very ancient CGI.pm
silly question: did you use CGI;

> .. using OO form of CGI ..
then just using start_html() should complain too .. (or was there a use CGI qw(start_html); I doubt ..)

probably the author changes start_html to $->start_html. A meta function would be hard to identify by a person at first glance.

>..either ther is a typo in your perl script, or you have a very ancient CGI.pm
silly question: did you use CGI;..

The perl script works fine except for this refresh problem.
I am using CGI. Here is beginning of script,

#!/perl/bin/perl -w
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use CGI::Carp qw(warningsToBrowser);

>..probably the author changes start_html to $->start_html. A meta function would be hard to identify by a person at first glance..

I have been trying all of your suggestions as they are shown in your comments.

please post yor  "new" statement too

These are the last ones I tried, from memory no access at this time.

my $q =new CGI;
print  $q->header( "text/html" ),
        $q->start_html ( -title => "Information",
                                 -bgcolor => "#ffffff",
                                  -meta => {'HTTP-EQUIV'=>'REFRESH',
                                          'CONTENT'=>'120'}
                            ),
                  $q->end_html;


And for the other suggestion

my $q =new CGI;
print start_html(-head=>meta( -title => "Information", -bgcolor => "#ffffff", {-http_equiv => 'Refresh',  -content => '120'}));
       $q->end_html;

How is it not working? Is it not refreshing the page after 2 mins or is it refreshing but not showing new/updated data?

> .. -content => '120' ..
could not work 'caus your're missing the link

> .. How is it not working? .. The page never loads when I try to add the code we've been discussing. Without any of the refresh code the page loads fine will display this:

Wed Jan 25 16:34:23 2006
Indoor Temperature  72.5
Outdoor Temperature 54.3
Indoor Humidity     46%
Outdoor Humidity    26%
Relative Pressure   30.05 inHg
Wind Speed           0.0 mph
Wind Direction      WSW

> .. could not work 'caus your're missing the link .. If you mean the URL, I'm trying to refesh the same page everything is on and I have also tried with the URL, same results.

do you get any error messages?