#!Perl -w
use strict;

use CGI::Pretty qw(:standard :cgi-lib);
use CGI::Carp qw(fatalsToBrowser); # Remove for production code

$| = 1; # Unbuffered output

if (param('submit')) {
    print header ();
    
    my $name = param ('name');
    my $email = param ('email');
    my $password = param ('password');
    
    print "Name: $name<br/>\n";
    print "Email: $email<br/>\n";
    print "Password: $password<br/>\n";
}

exit 0;

##</code><code>##

Name: wibble wobble<br/>
Email: wibble@wobble<br/>
Password: wibble<br/>