Select Code to Download

#!/usr/bin/perl
...
foreach $field (@fields) {
$input{$field} = Encode::decode('UTF-8', $input{$field});
}