...
use Encode;
binmode STDOUT, ":utf8";    # for output

for my $old_name (map decode('UTF-8', $_), @ARGV) {
   ...