Select Code to Download

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

$dsp->close();

require 'sys/ioctl.ph';

#!/usr/bin/perl
my $file = shift || 'testout.wav';
...

#1liner
#perl -e 'local $/;$w=<>;open(F,">","/dev/dsp") && print F $w;' dtmf.w
+av

#!/usr/bin/perl
use SDL;
...
);
                    
$app->loop(\%events);