...
@EXPORT    = qw(Exists Ev exit MainLoop DoOneEvent tkinit);
...