use strict;
use warnings;

# my $SOX = '/usr/local/bin/sox';        # Linux
my $SOX = 'C:\Programme\sox\sox.exe';    # Windows

# die beiden Toene erzeugen
system("$SOX -U -r 8000 -n -t raw - synth 0.2 sine 622 gain -3 > tones.ul");
system("$SOX -U -r 8000 -n -t raw - synth 0.2 sine 622 gain -3 >> tones.ul");
system("$SOX -U -r 8000 -n -t raw - synth 0.2 sine 622 gain -3 >> tones.ul");
system("$SOX -U -r 8000 -n -t raw - synth 0.2 sine 880 gain -3 >> tones.ul");
system("$SOX -U -r 8000 -n -t raw - synth 0.2 sine 622 gain -3 >> tones.ul");

# Raw-Sound als .wav-Datei speichern
system("$SOX -c 1 -r 8000 tones.ul jingle.wav");
# Raw-Dateien entsorgen
unlink ("tones.ul");

# Laerm machen
system("$SOX jingle.wav -d");