examples/tree_view.pl: Fix typo

examples/tree_view.pl

@@ -14,7 +14,7 @@ my $disks_str = "";
 if (eval { require BSD::Sysctl; 1 }) {
     $disks_str = BSD::Sysctl::sysctl("kern.disks") // "";
 } else {
-    # Fallback to pure shell execution path if Sys::Sysctl module is missing
+    # Fallback to pure shell execution path if BSD::Sysctl module is missing
     $disks_str = `sysctl -n kern.disks`;
     chomp($disks_str);
 }