my $target = "TEST" . $ext;
    rename $x->{filename}, $target
        or die "Couldn't rename '$x->{filename}' to '$target': $!";