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.25 sine 1300 gain -3 > tones.ul");
system("$SOX -U -r 8000 -n -t raw - synth 0.25 sine 2100 gain -3 >> tones.ul");

# Datei tones.ul 60 mal auf alert.ul kopieren
my $buffer;
open (OUT,'>', "alert.ul");
for my $i (1 .. 60)
  {
  open (IN,"tones.ul");
  print OUT $buffer while
    (read (IN,$buffer,16384));
  }
close(OUT);
close(IN);

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