use IPC::Run qw/start/;
my $h = start ['play','-q','/tmp/sound.wav'];
while ($h->pumpable) {
	print "waiting...\n";
	sleep 1;
}
$h->finish;
print "finished!\n";