Someone

#
# Get all the arguments
#

foreach (@ARGV){
                if ($_ =~ m/debug/) {
                                  $debug = 1;
                                 }
                elsif ($_ =~ m/maxbitrate/) {
                                 $maxbitrate = (split(/\=/,$_))[1];
                                 }
                elsif ($_ =~ m/starttime/) {
                                  $starttime = (split(/\=/,$_))[1];
                                  }
                elsif ($_ =~ m/chanid/) {
                                  $chanid = (split(/\=/,$_))[1];
                                  }
                elsif ($_ =~ m/exportdir/) {
                                  $exportdir = (split(/\=/,$_))[1];
                                  }
    }