Help for this page
package Tk::CoolFrame; ... 1; __END__
#!/usr/local/bin/perl -w use strict; ... MainLoop(); 1; __END__