delete.pl

#!/usr/bin/perl -w

use CGI;
use DBI;
use JSON;
use CGI qw(:standard);

my $cgi = CGI->new();


my $host =   "sql2.freemysqlhosting.net";
my $usr =    "sql12345678";
my $pwd =    "**********";
my $dbname = "sql12345678";

my $dbh = DBI->connect("DBI:mysql:$dbname:$host", $usr, $pwd, {
                                  AutoCommit => 0,
								  RaiseError => 1, 
								  }) or die $DBI::errstr;
								  
								
								  
$db_id = $cgi->param("dbid");

if (param('delete') eq 'delete') { 
my $delete = $dbh->prepare("delete from names where id =?");
$delete->execute($db_id);
$delete->finish();

$success = "user deleted";

my $json = encode_json(
  { msg => $success }
);
print $cgi->header( -type => 'application/json' ),$json;
}

$dbh->commit;
$dbh->disconnect;