I like this; however, USD isn't working for me (presumably because of the lc in validate => sub { return exists $curr->{lc shift}; },

Edit: I fixed it by changing that line to:

 validate => sub { my $chosen_curr = shift; return exists $curr->{$cho
+sen_curr}; },
[download]

And by removing lc from return lc $in;