print $front_page -> start_form(-method => 'GET');
    print $front_page -> p( $front_page -> code({-align => 'left'}, 'System\'s fully qualified name (hostname + domain name) ',
                           $front_page -> textfield( -name => 'machine_name', -size => '40', -default => '', -override => '1' )));
    print $front_page -> p( $front_page -> code({-align => 'left'}, 'Select the reason for the creation/updating of runbook: ',
                           $front_page -> popup_menu(-name     => 'reason',
                                                     -values   => ['System initial build release','System hardware changed',
                                                                  'System software changed','Daily update for recovery'],
                                                     -override => '1',
                                                     -default  => 'System initial build release')));
    print $front_page -> center( $front_page -> submit (-name => 'submit', -label => 'Process',
                                                        -target => 'create_window',
                                                        -onClick => "javascript:window.open('http://xww.test.com/cgi-bin/cgiwrap/root
cgi/create_data.pl','create_window','');void(0)"),
$front_page -> reset ());