#!/usr/bin/perl -w

use Getopt::Long; #get this module from CPAN
use strict;
use Shout;        #get this module from www.icecast.org

my %optctl;
my $SIGNEXT=0;
my @filearray;
my @backupfilearray;
my $use_playlist=1;
my $encoder_pre="/usr/local/bin/lame -S -h ";