#!/usr/bin/perl # Program to write data to a text file use CGI qw(:standard); use CGI::Carp(fatalsToBrowser); $firstname = param("firstname"); $lastname = param("lastname"); $email= param("email"); $country = param("country"); $username= param("username"); $password= param("password"); $rpassword = param("rpassword"); print "Content-type: text/html\n\n"; print "\n"; print "\nCGI Script\n"; print "\n"; open(TEXTWRITE,">>personalDetails.dat")||die("Can't open personalDetails.dat: $!"); print TEXTWRITE " $firstname"; print TEXTWRITE ","; print TEXTWRITE " $lastname"; print TEXTWRITE ","; print TEXTWRITE " $email"; print TEXTWRITE ","; print TEXTWRITE " $country "; print TEXTWRITE ","; print TEXTWRITE " $username"; print TEXTWRITE ","; print TEXTWRITE " $password"; print TEXTWRITE ","; print TEXTWRITE " $rpassword\n"; close(TEXTWRITE); print " Hello, $firstname $lastname.\n"; print "\n";