Перегляд поздоровлення, побажання, привітання

Привітання програмісту, що пише мовою Perl:

use Human::Programer;

my $me = Human::Programer->wake_up();

$me->use_brain;

$me->use_soul;

$me->use_body;

if (DayOfYear(localtime) == 256) {

$me->happy;

while ($me->need_work) {

$me->drink;

$me->get_gifts;

$me->make_some_code;

if ($me->may_be_need_stop) { $me->drink; $me->drink; $me->drink; last; }

}

} else {

print $me->talk("Shit!");

$me->make_some_code;

$me->happy;

}

$me->disconnect;

1;