Select Code to Download

use strict;
use warnings;
...

  return $buffer;
}

<?xml version="1.0" encoding="UTF-8"?>

...
  <pen color="red" down="1" />
  <move right="3" up="1" />
</block>