The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<?xml version="1.0"?>
  <svg xmlns="http://www.w3.org/2000/svg" height="340" width="552">
    <defs>
      <style type="text/css">
              rect, line, path { stroke-width: 2; stroke: black }
              text { font-weight: bold }
      <marker orient="auto" refY="2.5" refX="4" markerHeight="7" markerWidth="6" id="mArrow">
        <path style="fill: black; stroke: none" d="M 0 0 6 3 0 7"/>
      </marker>
      <marker orient="auto" refY="2.5" refX="4" markerHeight="7" markerWidth="6" id="mRtHalfArrow">
        <path style="fill: black; stroke: none" d="M 0 7 6 2 0 2"/>
      </marker>

      <marker orient="0 deg" refY="2.5" refX="4" markerHeight="7" markerWidth="6" id="mLtHalfArrow">
        <path style="fill: black; stroke: none" d="M 0 2 6 2 6 7"/>
      </marker>
      </style>
    </defs>
  <rect style='fill: white' height='20' width='125' y='25' x='22' />
<text y='40' x='30'>main</text>
  <line style='stroke-dasharray: 4,4; ' fill='none' stroke='black' x1='92' y1='55' x2='92' y2='335' />
    <rect style='fill: white' height='260' width='15' y='55' x='84'/>

  <rect style='fill: white' height='20' width='125' y='25' x='150' />
<text y='40' x='158'>DiePair</text>
  <line style='stroke-dasharray: 4,4; ' fill='none' stroke='black' x1='220' y1='95' x2='220' y2='335' />
    <rect style='fill: white' height='100' width='15' y='95' x='212'/>
    <rect style='fill: white' height='100' width='15' y='215' x='212'/>

  <rect style='fill: white' height='20' width='125' y='25' x='278' />
<text y='40' x='286'>Die</text>
  <line style='stroke-dasharray: 4,4; ' fill='none' stroke='black' x1='348' y1='135' x2='348' y2='335' />
    <rect style='fill: white' height='20' width='15' y='135' x='340'/>
    <rect style='fill: white' height='20' width='15' y='175' x='340'/>
    <rect style='fill: white' height='20' width='15' y='255' x='340'/>
    <rect style='fill: white' height='20' width='15' y='295' x='340'/>

<line x1='100' y1='95' x2='213' y2='95' style=' marker-end: url(#mArrow);' />
<text x='186' y='89' ><tspan>new</tspan></text>
<line x1='228' y1='135' x2='341' y2='135' style=' marker-end: url(#mArrow);' />
<text x='314' y='129' ><tspan>new</tspan></text>
<line x1='228' y1='175' x2='341' y2='175' style=' marker-end: url(#mArrow);' />
<text x='314' y='169' ><tspan>new</tspan></text>
<line x1='100' y1='215' x2='213' y2='215' style=' marker-end: url(#mArrow);' />
<text x='180' y='209' ><tspan>roll</tspan></text>
<line x1='228' y1='255' x2='341' y2='255' style=' marker-end: url(#mArrow);' />
<text x='308' y='249' ><tspan>roll</tspan></text>
<line x1='228' y1='295' x2='341' y2='295' style=' marker-end: url(#mArrow);' />
<text x='308' y='289' ><tspan>roll</tspan></text>
</svg>