use Monks; use Monks::Date; $happy = Monks::Date->new ( 1433404111 - 410227200 ); $BrowserUk = Monks->new(id=>'171588',birth=>$happy); $to_you = \$BrowserUk; $happy->MonkDay($to_you); $happy->MonkDay($to_you); $happy->MonkDay($BrowserUk); $happy->MonkDay($to_you); END{require Cake; $cake_with_candles = Cake->new; $BrowserUk->blow($cake_with_candles)}