Select Code to Download

#!/usr/bin/perl
use Tk;
...
$ec->bell;
$ec->update;
MainLoop;

#!/usr/bin/perl
use Tk;
...
}

#!/usr/bin/perl
use Tk;
...
MainLoop;