Select Code to Download

#!/usr/bin/perl -w

...

close (MYFILE);
close (NEWF);

open( .... ) or die "could not open file: $!";

#my $chn[$count];

#my $chn2[$count2]

my( @chn, @chn2 );