# Forward this script to 10 of your friends, or bad things will happen
+!

$_->forward($0) for @friends;

if (scalar @friends < 10)
{
    $you->disaster();
}
else
{
    $you->good_fortune(1);
}


sub disaster 
{
    (
        "Crushed by falling piano.",
        "Runaway lawn mower.",
        "Caught in web of deceit, spun by giant man-eating spider.",
        "Hiccups.",
        "Leg cut off.  New wooden leg infested with termites.",
        "Downvoted.",  
        "Gruesome yodeling accident.",      
        "Nose hair lice.",
        "John Tesh concert.",
        "Java."
    )
    [rand(10)];
}
[download]