Select Code to Download

BEGIN {
    use DBI;
...
        *{$_->[0]} = eval "sub () { $_->[1] }"; # use constant on vari
+ables
    }
}