#!/usr/bin/perl
##################################################
package Meditation
##################################################

__BEGIN__

sit();
breathe() until trance();
enlighten();


##################################################

sub sit { $sitting = 1; }

sub breathe {

return unless $sitting;
accept my $Reality, @_->new{ $universe };
connect '127.0.0.1:8', $spirit;

}

sub trance {

return 1 if ( listen $spirit, 8 );

}

sub enlighten { sort ( $Reality ); }

##################################################

__END__