# Death Before Disco
use strict;

package Disco;

use constant MINDLESS_MUSIC => 1;

sub new {

    return bless {
        'booty' => 'phat',
    }, shift;

}

sub Dance {
    print "Disco Dancin!\n" while(MINDLESS_MUSIC);
}


package Main;

die;

my $disco_dancin = Disco->new;
$disco_dancin->Dance;
[download]

Jeff

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
F--F--F--F--F--F--F--F--
(the triplet paradiddle)