#!/usr/bin/perl

use strict;
use diagnostics;
use warnings;

use IPC::Run qw/start/;
use POSIX ":sys_wait_h";

my ($h, $pid, $result);

# Play the sound file
$h = start ['play','-q','/home/ra/Desktop/trek3.mp3'];

# Get the process ID (there's only one)
foreach my $kid (@{ $h->{KIDS} }) {

    $pid = $kid->{PID};
}

# Wait for the sound file to stop playing, and then display a message

# Option 2: correctly displays a message within a second of the sound 
#   file stopping playing
do {
    sleep 1;
    waitpid($pid, WNOHANG);
    print "waiting...\n";
} until (! (kill 0, $pid));
print "finished!\n";

# Tidy up
$h->signal('INT');
$h->finish;