Select Code to Download

use 5.010; # enable say(), which is shorter than print ..., "\n";

...
say "Direction 0: '$direction[0]'";
say "Direction 1: '$direction[1]'";