Select Code to Download

print "@ main loop\n";
#MainLoop;
...
    #$MainWindow->update();
}

#!/usr/local/bin/perl

...
   {  push (@list, $key);}
}

package walk_locations;
    use strict;
...

END {;}       # module clean-up code here (global destructor)
    1;            # don't forget to return a true value from the file