#! C:\xampp\perl\bin\perl.exe

use CGI qw(:standard);
use DBI;
print header;
print start_html;
print start_form;
print p("Emp Number:",textfield("EmpNo"));
print p("Emp Name:",textfield("EmpName"));
print p(submit("Submit Form"));
print end_form;
if(param()){
#Read form data
$EmpNo = param("Emp Number");
$EmpName = param("Emp Name");
Insert_db();
}

sub Insert_db{
# Step 1: MySQL database: Declare DSN
my $dsn = "DBI:mysql:as5-dylan";
#default admin username/Password  in mysql
my $username = "root";
my $password = '';

# Step 2:connect to MySQL database
my $dbh  = DBI-> connect($dsn,$username,$password) ;

#Step 3: Pose an INSERT Query
# A)Formulating the query
$query = "INSERT INTO emp ('EmpNo', 'EmpName') VALUES ('$EmpNo','$EmpName')";
# B) Verify the Query
$sth = $dbh->prepare($query);
# C)Executing the Query
$sth->execute();

# Step 4: Disconnect from the MySql Server
$dbh->disconnect();
}