#!/usr/bin/perl

use strict;
use warnings;

use SDL::Mixer;

my $mixer = SDL::Mixer->new( -frequency => 22050,
                             -channels	=> 2,
                             -size		=> 1024);