#! /usr/bin/perl 
 
use strict; 
use warnings; 
 
while (<DATA>) { 
	chomp; 
	print is_out_of_office($_) 
		? "$_ is out of the office\n" 
		: "$_ is at work\n"; 
} 
 
sub is_out_of_office { 
	14 > rand 365 
} 
 
__DATA__ 
John 
Jim 
Ellen 
Mary 
Catherine 
Tom 
Robin 
Stephanie 
Karen