# A small portion of:   While my guitar gently weeps
# Lyrics and Music by:  George Harrison (RIP)
# Adapted to Perl by:   bronto
# Notes:                I know, I know: s/lock/look/ :-)

while (my $guitar->weeps($gently)) {
  I: { lock @you_all }
  see_the_love($there,$thats) ;
  sleep$ing ;

  I: { lock @the_floor and i_see($it_needs,$sweeping) } ;
}
[download]