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

my $host = "localhost";
my $database = "pstock_coreg";
my $user = "pstock_coreg";
my $pw = "xxxxx";

# SELECT DB
my $datasource = 'dbi:mysql:database='.$database.';host='.$host;
my $dbh = DBI->connect($datasource,$user,$pw) or die "Couldn't connect to DB: $DBI::errstr\n";

my $psr=$dbh->prepare
("INSERT INTO psr_coreg (email, ip_address, offer_dwr, success)
VALUES  (?, ? , ? , ?)");

my ($email, $ip, $dwr, $success);

$email = 'test@aol.com';
$ip = "127.0.0.1";
$dwr = 1;
$success = 1;

$psr->execute($email,$ip,$dwr,$success) || die "Couldn't insert record : $DBI::errstr";