Select Code to Download

open my $ALLLOG, '>', $ark2 or die "Unable to open $ark2: $!"; 
open my $SLOG,   '<', $ark3 or die "Unable to open $ark3: $!";