Select Code to Download

my ($codes_dir, $runner_lib);
BEGIN {
...
use lib "$codes_dir/perl_libs", "$runner_lib/runner_libs";
require 'perl_db_interface.pl';
require 'CodesModule.pm';

require CodesModule;

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,