Select Code to Download

my $suffix = sub {
    given ($type) {
       when ("csv") { return "txt" }
       when ("xml") { return "xml" }
    }}->();