#!c:\Perl\bin\perl.exe

use strict;

use DBI;
use CGI;
use CGI::Carp qw(fatalsToBrowser set_message);
set_message("There has been a problem submitting this form. Please contact the Reception desk.");
$CGI::POST_MAX=1024 * 100; # max 100k posts
$CGI::DISABLE_UPLOADS = 1; # no uploads allowed
use Data::Dumper;

my $user='foo';
my $pwd='bar';

my $dbh = DBI->connect('dbi:ODBC:Oracle7', $user, $pwd, { RaiseError => 1 }) or die "Failed to connect to $DBI::errstr\n";

my $sql = "insert into users (surname,forename,title,nationality,dob,gender,email,status,created,created_by)
values
('Smith','Fred','Mr','UK','27031972','m','f.smith\@hotmail.com','Friends',SYSDATE,'SelfReg')";

print "SQL is [$sql]\n";

my $sth = $dbh->prepare($sql) || do {
	die "Failed to prepare\n" };

$sth->execute;


$sth->finish;

$dbh->disconnect;