perl myscript.cgi name='user name' dob='September 2003' > need.html
[download]

$cat input.txt
name='user name'
dob='Sep 2003'
state='IL'
city='Chicago'
county='cook'
[download]

perl myscript.cgi < input.txt > output.html
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Of course if it's one sole request, you can just stick to LWP::UserAgent or even LWP::Simple. If you can directly run the CGI script, the easier yet route would be to just call it from the command line..

Makeshifts last the longest.

$doc = '';
open (MYOUT, ">/mypath/output.html") or die $!;
$doc .= "<p>Mydata....</p>";
$doc .= "<p>Myotherdata....</p>";
print $doc;                 # This goes to the web browser
print MYOUT $doc;           # This goes to a files
close (MYOUT);
[download]

   use CGI;                             

   my $q = new CGI;                         
   open(OUT, '/tmp/out.html') or die "Couldn't open out file: !$"; 
   print OUT $q->header,                    
             $q->start_html('hello world'), 
             $q->h1('hello world'),         
             $q->end_html;                  
   close OUT or "Couldn't close out file: $!";
[download]

use CGI;                             

   my $q = new CGI;     
   open(SAVE, ">&STDOUT");                    
   open(STDOUT, '/tmp/out.html') or die "Couldn't open out file: !$"; 
   print $q->header,                    
         $q->start_html('hello world'), 
         $q->h1('hello world'),         
         $q->end_html;                  
   open(STDOUT, ">&SAVE");
[download]

      
--------------------------------
SV* sv_bless(SV* sv, HV* stash);

my $filename = time();

my $doc = '';
open (MYOUT, ">/mypath/$filename.html") or die $!;
$doc .= "<p>Mydata....</p>";
$doc .= "<p>Myotherdata....</p>";
print $doc;                 # This goes to the web browser
print MYOUT $doc;           # This goes to a files
close (MYOUT);
[download]

my(@files, $file);
  opendir(DATADIR, "datadir");
  @files = grep(/[0-9].html/,readdir(DATADIR));
  closedir(DATADIR);
  foreach $file (@files)
   {
    if (-M "data/$file" > 30)
     {
      unlink("data/$file");
     }
   }
[download]

Actually in this case I do need to save the output as html, as well as have it passed out to a browser. Otherwise yes, it would have been handy to just save the relevant info to a text file. It just seems handier to me to allow certain scripts to be saved as html (on the webserver) because that was what I was doing at the browser end anyway.
Martymart