Select Code to Download

#!/usr/bin/perl -l
use strict;
...
my $value = eval '$hash->{$domain}'.$test;

print $value;   # "baz"