use strict;

# CGIモジュールを読み込み
use CGI;

# オブジェクト作成
my $q = CGI->new;

# フォームデータ受け取りは
$q->param('name');

print $q->header(-charset=>"utf-8"),    # HTMLヘッダ出力 $q->header
        $q->start_html(                 # HTMLタグ出力
                -title    => "テストタイトル",
                -charset  => 'UTF-8',
                -encoding => 'UTF-8',
                -lang     => 'ja-JP',
                -style    => {'src'=>'style.css'}
        );

# div開始タグ出力
print $q->start_div({-id=>'body'}),
        $q->start_div({-id=>'head'});

print $q->start_form(-action=> $q->url ,-method=>'post'),               # フォーム開始タグ出力
        $q->textfield(-name=>'ユーザID',                             # テキストフィールド
                -default=>'ユーザID',
                -size=>10,
                -maxlength=>16);
        $q->password_field(-name => 'password', -size => '10'),         # パスワードフィールド
        $q->filefield(-name => 'file'),                                 # ファイル $q->filefield
        $q->submit(-name => 'submitLogin', -value => 'ログイン'),   # Submit
        $q->hidden(-name => 'mode', -value => 'login'),                 # Hidden
        $q->end_form;                                                   # フォーム終了タグ出力

# div終了タグ出力
print $q->end_div,
        $q->end_div;

# 終了HTMLタグ
print $q->end_html;
exit;
 

print $query->image_button(-name=>'image_button_name',
        -src=>'/images/submit_btn.gif',
        -align=>'MIDDLE');