Help for this page

Select Code to Download

Select or download this

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
...
Tk::Error: Failed to AUTOLOAD 'Tk::Widget::TopLevel' at txt.pl line 75
 [\&main::open_file]
 (menu invoke)

Select or download this
```
#!/usr/bin/perl

...
```