Select Code to Download

#!/usr/bin/perl -w
#
...
# stream the WAV file down the phone line

$agi->stream_file(basename($wavefile, ".wav"));