Select Code to Download

#!/usr/bin/perl

# fork off, so the playback is non-blocking
if(fork() == 0){exec("aplay $my_sound_file")}

#!/usr/bin/perl
use warnings;
...
}

$dsp->close();