@EXPORT = qw(Exists Ev exit MainLoop DoOneEvent tkinit); [..] sub tkinit { return MainWindow->new(@_) }