Ever have one of those days when you just didn't like anyone?

package Job;

sub new_day {

    my $job = shift;
    my $self = {};

    my @management_team = (
        $Useless::CorporateWeasel,
        $Backstabbing::MiddleManager,
        $FaceSmiling::Ladderclimber,
        $Insipid::MarketingDrone,
        $PHB );

    $self->{score} = push @offa_roof, @management_team;

    foreach (@Luser){
        push @outta_window;
        $self->{score}++;
    }

    if ($self->{score} > 1){
        $self->{status} = "Happy";
        bless $self, $job;
    }
    return $self;
}
[download]