Select Code to Download

#!/usr/bin/perl -w
use strict;
...
sub main {
    # This part doesn't matter
}

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

exit(  main( @ARGV )  );

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