use strict; use Tk; my $mw = new MainWindow(); ... $mw->bind("<Motion>",sub { $mw->destroy }); MainLoop; [download]
In reply to Re: Perl ScreenSaver by tall_man in thread Perl ScreenSaver by beretboy