#! /usr/bin/perl
#
#  Moby - Flower
#
#  Green Sally up, 
#  And green Sally down 
#  Lift and squat 
#  Gotta tear the ground 
#  
#  
#  Old Miss Lucy dead and gone, 
#  She left me here to weap and moan


$Sally{'green'}++ && $Sally{'green'}--;
if($Lift and $squat) { 
   sub tear{$ground/2}; 
}

$Old_Miss_Lucy = ($dead and $gone);
sub left($she) { $me = "weap and moan"; }