#!"C:\xampp\perl\bin\perl.exe"
use diagnostics;
use DBI;
use strict;
use warnings;

my $driver  = "mysql";
my $database    = "mysql";
my $dsn     = "DBI:$driver:database=$database";
my $userid  = "root";
my $password    = "password";

# Read in text
$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
my $buffer;
if ($ENV{'REQUEST_METHOD'} eq "GET") {
    $buffer = $ENV{'QUERY_STRING'};
}
# Split information into name/value pairs
my @pairs = split(/&/, $buffer);
my %FORM;
foreach my $pair (@pairs) {
    my ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%(..)/pack("C", hex($1))/eg;
    $FORM{$name} = $value;
}
my $first_name  = $FORM{name};
my $address     = $FORM{address};
my $city    = $FORM{city};
my $occupation  = $FORM{occupation};
my $age     = $FORM{age};

my $dbh = DBI->connect("dbi:mysql:dbname=mysql", "root", "password",
    { AutoCommit =>  0,RaiseError => 1}, )
    or die ("Couldn't connect to database: ") , $DBI::errstr;

my $query = "insert into userrecords(Address,Age,City,Name,Occupation)
values (?, ?, ?, ?, ?) ";

my $statement = $dbh->prepare($query)
    or die ("Couldn't connect to database: ") , $DBI::errstr;
$statement->execute($address, $age, $city, $name, $occupation)
    or die ("Couldn't connect to database: ") , $DBI::errstr;
$dbh->disconnect();

my $URL = "http://.....:81/cgi-bin/showdata.cgi";
print "Location: $URL\n\n";