Select Code to Download

#!/usr/bin/perl -w
#
...
    $pboard->{$square} = 1;
    print "\n\n";
}

my $psolution = [qw(
    a8 c7 e8 g7 h5 f6 d7 b8 c6 a7 c8 e7 g8 h6 f7 d8
...
my $pboard = { };
map { show_solution($_, $pboard) } @$psolution;