As far as I can see, the only 5.10 feature used in the code is say. In older Perls, use print with a "\n" at the end, or define

sub say {
    print @_, "\n";
}
[download]

.