if ( param('Submit') )
    {
    # get data from parameter to database
    my @params = param();
    my $full_name = param ('full_name');
    my $pob = param ('pob');
    my $dob = param ('dob');
    my $gender = param ('gender');
    my $address = param ('address');
    my $email = param ('email');
    my $phone = param ('phone');
    my $username = param ('username');
    my $password = param ('password');
    my $high_school = param ('high_school');
    my $school_dep = param ('school_dep');
    my $year_in = param ('years');

    # data to tbl:students
    # ----------------------------------------------------------------
    my $students = $dsn->prepare("INSERT INTO students
                       (username, password)
                        values
                       (?,?) 
                       ");
    $students->execute($username,$password)
          or die $DBI::errstr;
    $students->finish();
    
    # data to tbl:students_bio
    # ----------------------------------------------------------------
    my $students_bio = $dsn->prepare("INSERT INTO students_bio
                       (
                       username, full_name, pob, dob, gender, addr,
                       email, phone, high_school, school_dep, years
                       )
                        values
                       (?,?,?,?,?,?,?,?,?,?,?) 
                       ");
    $students_bio->execute($username,$full_name,$pob,$dob,
                           $gender,$address,$email,$phone,
                           $high_school,$school_dep,$year_in)
          or die $DBI::errstr;
          $students_bio->finish();
          
    # data to tbl:students_parent
    # ----------------------------------------------------------------
    my $students_parent = $dsn->prepare("INSERT INTO students_parent
                                        (username)
                                        values
                                        (?)
                                        ");
    $students_parent->execute($username)
          or die $DBI::errstr;
          $students_parent->finish();    

    };