昼ご飯に遅れんように

Perl ゴミ箱

昼遅れんように、連絡するようにした。Log::Dispatch::MacGrowlがあげられてたので。
それだけ。

#!/usr/bin/perl -w

use strict;
use warnings;
use Log::Dispatch::MacGrowl;

my $log
    = Log::Dispatch::MacGrowl->new(
        name        => 'growl',
        min_level   => 'info',
        app_name    => 'Notice Lunch',
        title       => "let's go lunch!",
        sticky      => 1
      )
    ;

$log->log( level=> 'info' , message => "Stop working !!! Time to go lunch baby!" );


exit(0);