#!/usr/bin/perl

use CGI qw(:all);
use Pg;
use Register;
use RegData;

StartPage;

unless ($q::step) {
  goto Ex unless SetConnection;
  print
    PrepareFile('register.html');

} elsif ($q::step == 1) {
  goto Ex unless CheckDefined;
  print PrepareFile('register1.html');

} elsif ($q::step == 2) {
  goto Ex unless SetConnection && InsertRecord;
  print PrepareFile('register2.html');
}

Ex:
EndPage;