Select Code to Download

my %dbhash = (
  name  => 'revdiablo',
...
$template =~ s/\$dbhash{([^}]+)}/$dbhash{$1}/g;

print "$template\n";