#!/usr/bin/perl

$DeadMans{Chest}+=(15*$Man);
$YoHoHo and $a, $bottle->{rum};
$Drink and $the_Devil; $had_done for ($the_rest);
$YoHoHo and $a, $bottle->{rum};