Select Code to Download

#!/usr/bin/perl

...
    }
  sleep 1;
}

#!/usr/bin/perl
use Tk;
use Tk::Listbox;
...
               });

MainLoop;