Fwd: cgi Pain!!!

------=_Part_16187_27985146.1191592799582
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

hi all
have the following problem

I cannot for the life of me get the following working:

     28 testing the header
     29 print header;
     30 print start_html("Thank You");
     31 print h2("Thank You");
     32
     33 my $i;
     34 foreach $i (@[EMAIL PROTECTED]
)
     35 {
     36        print h3("$i ");
     37 }

excuse comments (#) as I was trouble shooing the problem but to no avail,
it
does work when I run it from the commnad line.
I am not sure if I am implementing line 36 correctly, as I can see that
there is informaion in the array, but it is not being sent to the screen.

Thanks
Pat



      1 #!/usr/bin/perl -w
      2 use CGI qw(-debug :standard);
      3 use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
      4 use strict;
      5 #### adding the bits from teat.pl
      6 use warnings;
      7 #use LWP::Simple;
      8 use LWP::Simple qw(!head);
      9 use diagnostics;
     10 use URI;
     11
     12
     13
     14
     15
     16 ###### setting up the variables for the form
     17 my $query;
     18 my $p;
     19 my $variable_name = param("srNumber");
     20 #my $variable_name = 194951021;
     21
     22
     23 #@[EMAIL PROTECTED]
 = `/usr/bin/perl mysecondperlscript.pl` ;
     24
     25 my @[EMAIL PROTECTED]
>
;
     26
     27 print "@[EMAIL PROTECTED]
";
     28 #testing the header
     29 #print header;
     30 #print start_html("Thank You");
     31 #print h2("Thank You");
     32
     33 #my $i;
     34 #foreach $i (@[EMAIL PROTECTED]
)
     35 #{
     36 #       print h3("$i ");
     37 #}
     38

------=_Part_16187_27985146.1191592799582--