Select Code to Download

my($all,$com,$csv,$ctr,$desc,$dir,$fname,$found,$fsize,
   $line,$longline,$null,$one);
my($parm,$parms,$pattern,$seekrc,$value);
my(@coms,@csvin,@grep,@parms,@seekrc);

    ($start,$stop,$adv,$desc) = split(/\,/,$line);
    $start =~ s/^\s+//g;
    $stop =~ s/^\s+//g;
    $adv =~ s/^\s+//g;
    $desc =~ s/^\s+//g;

    while(defined($line = <IN>)) {
        ... 
...
        }
        $bighash{$name} = { %temphash };
    }