# *BEEEEEEEEEP* 
use strict;
use warnings;

use SDLx::Sound;

my $snd = SDLx::Sound->new(
    files => (
        channel_01 => q{./sound-853hz-25s.ogg},
        channel_02 => q{./sound-960hz-25s.ogg},
    ),
    loud => (
        channel_01 => 100,
        channel_02 => 100,
    ),
    times => (
        channel_01 => 0,        # start
        channel_02 => 0,        # start
        channel_01 => 25_000,   # milliseconds
        channel_02 => 25_000,   # milliseconds
    ),
    fade => (
    ),
)->play();