#!/usr/bin/perl -Tw 
 
use strict; 
use CGI qw(param header); 
use Fcntl ':flock'; 
 
open STORE, '>/path/to/your/file' or die $!; 
flock STORE, LOCK_EX or die $!; 
 
foreach my $p (param) { 
  foreach my $v (param($p)) { 
    print STORE "$p : $v\n"; 
  } 
} 
 
close STORE; 
 
print header; 
print <<END_HTML; 
 
# put the HTML you want for the confirmation page here 
 
END_HTML

open STORE, '>>/path/to/your/file' or die $!;

my $time = localtime;

print redirect('http://yourserver.com/some_page.html')'

#!/usr/bin/perl -Tw 
 
use strict; 
use CGI qw(param header ul li table Tr td); 
use Fcntl ':flock'; 
 
# List of fields that must be filled in. 
# If any of these fields are blank then an error message 
# will be generated 
my @mandatory = qw(field1 field2); 
 
# List of fields to show in the output 
my @show = qw(field3 field4); 
 
my @errs; 
foreach (@mandatory) { 
  push @errs, $_ unless param($_); 
} 
 
if (@errs) { 
  my $err = ul(li([@errs])); 
 
  print header; 
  print <<END_HTML; 
 
# Insert HTML that tells the user they've made an error and missed out 
# mandatory fields. Use the variable $err somewhere in the HTML as this 
# contains a list of the missing fields 
 
END_HTML 
  # exit the program 
  exit; 
} 
 
open STORE, '>>/path/to/your/file' or die $!; 
flock STORE, LOCK_EX or die $!; 
 
print STORE 'Data submitted at: ', scalar localtime, "\n"; 
 
foreach my $p (param) { 
  foreach my $v (param($p)) { 
    print STORE "$p : $v\n"; 
  } 
} 
 
print STORE '-' x 70, "\n"; 
 
close STORE; 
 
$rows .= Tr(td($_), td(param($_))) foreach @show; 
my $fields = table($rows); 
 
print header; 
print <<END_HTML; 
 
# Put the HTML you want for the confirmation page here. 
# Within the HTML you can include the variable $fields which 
# contains a table of the fields from @show 
 
END_HTML

my $rows;

$rows .= Tr(td($_), td(param($_))) foreach @show;

my @mandatory = ('field one', 'field two');

<input type="button" 
            value="&lt;&lt; Go Back" 
            onclick="history.go (-1)">