Select Code to Download

if ($param) {
    $param =~ /^(id|key|limit):(\S*)$/ or die "Malformed value for par
+ameter: '$param'";
    my ($key,$value) = ($1,$2);
    $ENV{"C:$key"} = $value;
};

if ($param) {
    $param =~ /^(\w+):(\S*)$/ or die "Malformed value for parameter: '
+$param'";
    my ($key,$value) = ($1,$2);
    $ENV{"C:$key"} = $value;
};