gistfile1.pl

#!/usr/bin/perl

use strict;
use warnings;

sub main {

    my $message;

    if (@ARGV) {
        $message = join ' ', @ARGV;
        $message =~ s/'/"/g;
    } else {
        $message = 'Message';
    }

    `terminal-notifier -message '$message' > /dev/null`;
    `afplay /Users/bessarabov/Dropbox/chaos/note.mov`;
}
main();