# 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;