Assuming 'require Tk::TopLevel;' at txt.pl line 75
Subroutine Tk_cmd redefined at C:/Perl/site/lib/Tk/TopLevel.pm line 14 (#2)
    (W redefine) You redefined a subroutine.  To suppress this warning, say

        {
        no warnings 'redefine';
        eval "sub name { ... }";
        }

Subroutine CreateOptions redefined at C:/Perl/site/lib/Tk/TopLevel.pm line 17 (#
2)
Subroutine Populate redefined at C:/Perl/site/lib/Tk/TopLevel.pm line 22 (#2)
Subroutine Icon redefined at C:/Perl/site/lib/Tk/TopLevel.pm line 29 (#2)
Subroutine menu redefined at C:/Perl/site/lib/Tk/TopLevel.pm line 64 (#2)
Subroutine Tk::Widget::Toplevel redefined at C:/Perl/site/lib/Tk/Widget.pm line
        247 (#2)
Tk::Error: Failed to AUTOLOAD 'Tk::Widget::TopLevel' at txt.pl line 75
 [\&main::open_file]
 (menu invoke)