Select Code to Download

perl foo.pl --channel="1,forever" --channel="2,1:20" \
  --channel="3,2:50" --channel="7,forever"

#!/usr/bin/perl
use strict;
...
my @channels;
GetOptions('channel=s' => \@channels);
print Dumper(\@channels);