Argument "main" isn't numeric in subroutine entry at tk.pl line 6.