use IPC::Run qw/start/;
use Time::HiRes qw/gettimeofday tv_interval/;

my $t0 = [gettimeofday];
my $h = start ['play','-q','/home/myname/soundfile.wav',
    'trim','0','5'];
printf " start: %.03f s\n", tv_interval($t0);
$h->finish;
printf "finish: %.03f s\n", tv_interval($t0);

__END__

 start: 0.001 s
finish: 5.143 s