#! /usr/bin/perl
use Time::Object;

my $time = localtime;
my $boss="Mark";
local $keys;
local $notebook;

my $lunch = 1 if ($time->hour >12 and $time->hour <13);

if ($keys and $notebook)        {
        print "$boss is in the building but likely in the restroom \n";
}
elsif ($keys and !$notebook)    {
        print "$boss is likely in the building and in a meeting n";
}
elsif ($notebook and !$keys)    {
        if ($lunch)     {
                print "$boss is likely gone for lunch \n";
        }
        else    {
                print "$boss is likely gone for the day \n";
        }
}
elsif (!$keys and !$notebook)   {
        print "$boss is likely at an off-site meeting and may not return \n";
}
else    {
        print "I really don't know where $boss is as he appears to be once again defying all
logic \n";
}