sleep 1200 while( (localtime)[2] < 8 );

use Curses;

require nicotine;
`make coffee`;
bootstrap $self and wait;

foreach( @three_shs )
{
	( defined ) 	? eval : next ;	
	callInSick 		if $@;	
}

unless ( system 'mail' )
{
	kill( time )	or warn "i really should be going...";
}

my $feeling = ( int rand(1000) % 2 ) ? "lucky" : "urgh!" ;  
exit;