my $dice = YAML::Syck::Load( <<'EOT' );
---
- |-
  ---------
  |       |
  |   #   |
  |       |
  ---------
- |-
  ---------
  | #     |
  |       |
  |     # |
  ---------
- |-
  ---------
  | #     |
  |   #   |
  |     # |
  ---------
- |-    
  ---------
  | #   # |
  |       |
  | #   # |
  ---------
- |-    
  ---------
  | #   # |
  |   #   |
  | #   # |
  ---------
- |-    
  ---------
  | #   # |
  | #   # |
  | #   # |
  ---------
EOT
print $dice->[int(rand(@{$dice}))], "\n";