#!/usr/bin/perl -w
use strict;

use Tk;
# use Tk qw( exit );    # Also produces same error.

exit main( @ARGV );

sub main {
    # This part doesn't matter
}

##</code><code>##

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

##</code><code>##

exit(  main( @ARGV )  );

##</code><code>##

use base qw(Exporter DynaLoader);
@EXPORT    = qw(Exists Ev exit MainLoop DoOneEvent tkinit);