#!/usr/bin/perl -w
use strict;
my $enjoy;
my $suffer;
my $bedtime;
my $work = 10;
my $load = 2;
my $go_home;

open( NEWDAY, "<nonstress.tmp" )
  || warn "Will Change as Day Goes On";

while (<NEWDAY>) {
    if ( $work =~ /easy/ ) {
        print "My Workload Doubles";
        print "$work*$load";
        until ( $me =~ /stress/ ) {
            print "LUNCH BREAK!";
        }
    }
}
open( LUNCH, "<lunch.tmp" ) || warn "Only 30 Min";

while (<LUNCH>) {

    push my @boss, $go_home;

}
if ( $life =~ /badstress/ ) { &half }
else { $suffer }

sub half {

    open( HALF, "<halfday.tmp" ) while (<HALF>) print $enjoy;

    until ($bedtime)

}