Select Code to Download

$string =~ s/\$(\w+)/ ${$1} /xeg;

                print " ----------------- " . $ref->{attribute} . "\n"

my $string = $ref->{attribute};
my $output = eval $string;
...
  die "problem with eval: $@";
}
 print " ----------------- $output\n";