notice.pl

#!/usr/bin/env perl
use strict;
use warnings;

use Mac::Growl;

system @ARGV;

my $appname = "notice.pl";
Mac::Growl::RegisterNotifications($appname, ['alert'], ['alert']);
Mac::Growl::PostNotification(
    $appname,
    'alert',
    $appname,
    "$ARGV[0] done",
    0,
    0,
    undef,
);