Select Code to Download

my $a = $cfg{'default.player'};
my $b = "\xeb\xa6\xac\xec\x9e\x91";
if ($a eq $b) {
   print "indahouse\n";
}

open(ST, "<", $details) or die "Could not read $details: $!\n";
while (<ST>) {
...
                }
        }
}