#!/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;