Select Code to Download

#!/opt/perl_5.8.8/bin
use Tk;
...
MainLoop;

package Anykey;
use File::Spec;
...
1;