use perl/tk出错？求助

CODE:

E:\>;perl sample.pl
Name "main::overtime_pay_rate" used only once: possible typo at sample.pl line 3
09.
@ 535 not utf8
SV = PV(0x2c10e74) at 0x2c75a3c
  REFCNT = 2
  FLAGS = (POK,pPOK,UTF8)
  PV = 0x2c7774c "\313\316\314\345 9"\0Malformed UTF-8 character (unexpected non
-continuation byte 0xce, immediately after start byte 0xcb) in subroutine entry
at G:/Perl/site/lib/Tk/Widget.pm line 190.
Malformed UTF-8 character (unexpected non-continuation byte 0xe5, immediately af
ter start byte 0xcc) in subroutine entry at G:/Perl/site/lib/Tk/Widget.pm line 1
90.
[UTF8 "\x{0}\x{0} 9"]
  CUR = 6
  LEN = 7
SV = PVMG(0x2c76304) at 0x2c75a3c
  REFCNT = 2
  FLAGS = (SMG,POK,pPOK,UTF8)
  IV = 0
  NV = 0
  PV = 0x2c7774c "\313\316\314\345 9"\0Malformed UTF-8 character (unexpected non
-continuation byte 0xce, immediately after start byte 0xcb) in subroutine entry
at G:/Perl/site/lib/Tk/Widget.pm line 190.
Malformed UTF-8 character (unexpected non-continuation byte 0xe5, immediately af
ter start byte 0xcc) in subroutine entry at G:/Perl/site/lib/Tk/Widget.pm line 1
90.
[UTF8 "\x{0}\x{0} 9"]
  CUR = 6
  LEN = 7
  MAGIC = 0x2c778dc
    MG_VIRTUAL = &PL_vtbl_utf8
    MG_TYPE = PERL_MAGIC_utf8(w)
    MG_LEN = 4
@ 535 not utf8
SV = PV(0x2c4858c) at 0x2c80044
  REFCNT = 2
  FLAGS = (POK,pPOK,UTF8)
  PV = 0x2c8189c "\313\316\314\345 9"\0Malformed UTF-8 character (unexpected non
-continuation byte 0xce, immediately after start byte 0xcb) in subroutine entry
at G:/Perl/site/lib/Tk/Widget.pm line 190.
Malformed UTF-8 character (unexpected non-continuation byte 0xe5, immediately af
ter start byte 0xcc) in subroutine entry at G:/Perl/site/lib/Tk/Widget.pm line 1
90.
[UTF8 "\x{0}\x{0} 9"]
  CUR = 6
  LEN = 7
SV = PVMG(0x2c7c0ec) at 0x2c80044
  REFCNT = 2
  FLAGS = (SMG,POK,pPOK,UTF8)
  IV = 0
  NV = 0
  PV = 0x2c8189c "\313\316\314\345 9"\0Malformed UTF-8 character (unexpected non
-continuation byte 0xce, immediately after start byte 0xcb) in subroutine entry
at G:/Perl/site/lib/Tk/Widget.pm line 190.
Malformed UTF-8 character (unexpected non-continuation byte 0xe5, immediately af
ter start byte 0xcc) in subroutine entry at G:/Perl/site/lib/Tk/Widget.pm line 1
90.
[UTF8 "\x{0}\x{0} 9"]
  CUR = 6
  LEN = 7
  MAGIC = 0x2c81ffc
    MG_VIRTUAL = &PL_vtbl_utf8
    MG_TYPE = PERL_MAGIC_utf8(w)
    MG_LEN = 4
Tk::Error: Can't set -anchor to `w' for Tk::Frame=HASH(0x2c9a114): unknown optio
n "-anchor" at G:/Perl/site/lib/Tk/Configure.pm line 46.
at G:/Perl/site/lib/Tk/Derived.pm line 294
Tk callback for event
Tk callback for .
Tk callback for .frame
Tk callback for .frame1
Tk callback for .frame1.frame
Tk callback for .frame1.frame1
Tk callback for .frame1.frame2
Tk callback for .frame1.frame3
Tk callback for .frame2
Tk callback for .frame3
Tk callback for .frame3
Tk::Derived::configure at G:/Perl/site/lib/Tk/Derived.pm line 306
Tk::Widget::new at G:/Perl/site/lib/Tk/Widget.pm line 205
Tk::Widget::__ANON__ at G:/Perl/site/lib/Tk/Widget.pm line 256
Can't set -anchor to `w' for Tk::Frame=HASH(0x2c9a114): unknown option "-anchor"
at G:/Perl/site/lib/Tk/Configure.pm line 46.
at G:/Perl/site/lib/Tk/Derived.pm line 294

at G:/Perl/site/lib/Tk/Derived.pm line 306

CODE:

Name "main::overtime_pay_rate" used only once: possible typo at sample.pl line 309.
@ 535 not utf8
Malformed UTF-8 character (unexpected non-continuation byte 0xe5, immediately af
ter start byte 0xcc) in subroutine entry at G:/Perl/site/lib/Tk/Widget.pm line 1
Tk::Error: Can't set -anchor to `w' for Tk::Frame=HASH(0x2c9a114): unknown optio
n "-anchor" at G:/Perl/site/lib/Tk/Configure.pm line 46.
at G:/Perl/site/lib/Tk/Derived.pm line 294
Can't set -anchor to `w' for Tk::Frame=HASH(0x2c9a114): unknown option "-anchor"
at G:/Perl/site/lib/Tk/Configure.pm line 46.
at G:/Perl/site/lib/Tk/Derived.pm line 294

at G:/Perl/site/lib/Tk/Derived.pm line 306