Select Code to Download

sub traverse {
    my $result;
...

    return $result;
}

open my $outputFile, '>', $output or die "Failed to create $output: $!
+\n";