Fwd: cgi Pain!!!

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 (@vmsupportTest)
     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 #@myarray = `/usr/bin/perl mysecondperlscript.pl` ;
     24
     25 my @vmsupportTest=`/usr/bin/perl
/var/www/cgi-bin/downLoadTeatbook4.pl
http://test.test.com/pending/$variable_name`<http://test.test.com/pending/$variable_name%60>
;
     26
     27 print "@supportTest";
     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 (@vmsupportTest)
     35 #{
     36 #       print h3("$i ");
     37 #}
     38