sub error_box {
    use Win32;
    my $Message = "Format error, please enter again";
    my $Result = Win32::MsgBox( $Message , 16+4 ,"Input format judgment" );
    ( $Result == 6) ? &INPUT_JUDGE : exit;
}