Select Code to Download

use warnings;
use strict;
...

if ( $xd eq $yd ) { print "Match!\n" }
else { die "Mismatch!\n" }