#!/usr/bin/perl

use strict;
use diagnostics;
use warnings;

my $pid = fork || exec 'play', '/home/ra/Desktop/trek2.mp3';
print "My PID is *$pid*\n";
sleep 5;
kill $pid;
##</code><code>##

ra@eagle ~/Local/Code/amudclient/test/playsound $ ./playsound.pl
My PID is *21417*

/home/ra/Desktop/trek2.mp3:

 File Size: 506k      Bit Rate: 135k
  Encoding: MPEG audio    Info: 2017-09-26T15:54
  Channels: 2 @ 16-bit   Track: 309
Samplerate: 44100Hz      Album: This Week in Trek
Replaygain: off         Artist: Michael Gaines and Darrell Skeels
  Duration: 00:00:30.07  Title: This Week in Trek Episode 309

In:17.6% 00:00:05.29 [00:00:24.77] Out:233k  [     =|=     ]        Clip:0
##</code><code>##

ra@eagle ~/Local/Code/amudclient/test/playsound $ ./playsound.pl
My PID is *21364*

/home/ra/Desktop/trek2.mp3:

 File Size: 506k      Bit Rate: 135k
  Encoding: MPEG audio    Info: 2017-09-26T15:54
  Channels: 2 @ 16-bit   Track: 309
Samplerate: 44100Hz      Album: This Week in Trek
Replaygain: off         Artist: Michael Gaines and Darrell Skeels
  Duration: 00:00:30.07  Title: This Week in Trek Episode 309

In:17.0% 00:00:05.11 [00:00:24.96] Out:225k  [ -====|====- ]        Clip:0    raIn:28In:In:In:29.7%In:3In:3In:In:In:32In:InInIn:46.6% 00In:47.3% 0In:47InIn:100%  00:00:30.07 [00:00:00.00] Out:1.33M [   ===|===   ]        Clip:0     
Done.