problem using script as ssi

[charles]

i have the following script:

#!/usr/bin/perl -w

use strict;

my $file = /path/to/pancho-unstable";

print "<pre>";
open(FH, $file);
while(<FH>) {
  s/\\\@/@/g;
  s/>/\&gt;/g;
  s/</\&lt;/g;
  print if /USE/.../USE/ and !/USE/;
}
close(FH);
print "</pre>";


when i include this script as an ssi through:

<!-- #exec cgi="cgi-bin/parse.pl" -->

nothing prints except for the html included in the .shtml file.
however, when i rewrite the above script as follows:

#!/usr/bin/perl -w

use strict;
use CGI ':standard';

my $file = "/path/to/pancho-unstable";

print header;
print start_html("Pancho Man Page");
print "<pre>";
open(FH, $file);
while(<FH>) {
  s/\\\@/@/g;
  s/>/\&gt;/g;
  s/</\&lt;/g;
  print if /USE/.../USE/ and !/USE/;
}
close(FH);
print "</pre>";
print end_html;


the desired results occur. can someone explain why i am seeing these
results?

thanks -c


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]