Select Code to Download

use 5.010;

...
else {
   say 'parse failed';
}

$VAR1 = {
  keyword => 'function',
...
  params  => '(beg string, end string, read_date date, step char(6))',
  returns => '(date, date, char(1))',
};