Select Code to Download

 
sub tkinit { return MainWindow->new(@_) }
sub MainLoop
...
    }
  }
}

#!/usr/bin/perl --
use strict;
...
    $mw->update;
    return $mw;
}