Help for this page

Select Code to Download

Select or download this

use Tk;  
use strict;
...
                   },
  ))->pack(-side =>'top', -fill => 'x');  
MainLoop;