#!/usr/bin/perl 
use CGI; 
use CGI::Carp qw(fatalsToBrowser); 
 
open(BOOKINGFILE, ">>bookingform.csv"); # Open for appending 
 
my $first_name=param{'firstname'}; 
my $last_name=param{'lastname'}; 
my $email_address=param{'emailaddress'}; 
my $email_address_confirmation=param{'emailaddressconfirmation'}; 
 
print BOOKINGFILE "$last_name|$first_name|$email_address|$email_address_confirmation\n"; 
close (BOOKINGFILE);

use CGI; 
use CGI ':standard'; 
print "Content-type:text/html\n\n";

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use CGI;  
use CGI::Carp qw(fatalsToBrowser);  
  
open(my $booking_fh, '>>', "bookingform.csv") 
  or die "failed to open 'bookingform.csv' $!"; 
  
my $first_name                  = param('firstname');  
my $last_name                   = param('lastname');  
my $email_address               = param('emailaddress');  
my $email_address_confirmation  = param('emailaddressconfirmation');  
  
print  $booking_fh "$last_name|$first_name|$email_address|$email_address_confirmation\n";  
close  $booking_fh or die "failed to close \$booking_fh $!";

#!/usr/bin/perl 
use strict; 
use CGI ':standard'; 
use CGI::Carp qw(fatalsToBrowser warningsToBrowser); 
print "Content-type: text/html\n\n"; 
warningsToBrowser(1);

#!/usr/bin/perl 
use strict; 
use warnings;

#!/usr/bin/perl 
 
use strict; 
use warnings FATAL => 'all'; 
use CGI;  
use CGI::Carp qw( fatalsToBrowser ); # remove after developing/debugging 
 
my $cgi  = CGI->new; 
my %form = $cgi->Vars; # if I'm processing a form submission 
 
print $cgi->header, $cgi->start_html;