Select Code to Download

use feature ":5.14";
use warnings FATAL => qw(all);
...
END

pp($d)

{
  BasketID               => 98911496,
...
  StatusCode             => 0,
  StatusInfo             => "Command Processed OK",
}