Select Code to Download

use strict;
use warnings;
...
$readbackname = decode($cp, $readbackname);

is($readbackname, $newname, 'round trip');