use strict;
use warnings;

my $SOX = '/usr/local/bin/sox';

my $pid = playsound("jingle.wav");  # Sound spielen
waitpid($pid, 0);                   # auf das Ende warten


sub playsound
  {
  my $file = shift;
  my $child_pid;
  $child_pid = fork;
  if ($child_pid > 0)
    { # Parent
    return $child_pid;
    }
  elsif ($child_pid == 0)
    { # Child
    my @play = ($SOX, $file, "-d");
    # Kind ueberlagert sich mit sox
    exec(@play);
    exit(0);   # wenn exec nicht ging
    }
  else
    { die "Cannot fork: $!\n";  }
  }