Select Code to Download

my %dispatch = (
  From    => sub { return '"Nobody" <nobody@localhost>'; },
  Subject => sub { die "The GNKSA requires that the subject field alwa
+ys be specified by the user."; },
  # and so forth.
);

   for my $k (keys %dispatch) {
      if (exists $config{$k}) {
...
         $value{$k} = $dispatch{$k}->();
      }
   }