Help for this page
#!/usr/bin/perl -w use strict; ... MainLoop;
#!/usr/bin/perl ... $top->destroy; }
#!/usr/bin/perl use warnings; ... } return ( $value, $u ); }