Please use Pod::Find to find pod (there is no such thing as "Null POD"). Also, you should throw up a splash screen whilst searching for pod on startup, or simply don't search for it at all, just find perltoc and display it (or provide an option to not search on startup).

Also, this is weird

sub INC_AddPath {
  my( $this ) = shift ;
  
  my $dialog = Wx::DirDialog->new($this , "$TITLE - \@INC -> Add PATH"
+ , $LASTDIR ) ;
  
  my $dir ;
  if( $dialog->ShowModal == wxID_CANCEL ) { $dir = undef ;}
  else { $dir = $dialog->GetPath ;}
  
  $dir =~ s/[\\\/]+/\//gs ;
  
  push(@INC , $dir) ;
  
  Wx::MessageBox("Path Added:\n$dir", "\@INC -> New PATH", wxOK | wxIC
+ON_INFORMATION, $this );
}
[download]

Kindly rewrite it like

sub INC_AddPath {
  my( $this ) = shift ;
  
  my $dialog = Wx::DirDialog->new($this , "$TITLE - \@INC -> Add PATH"
+ , $LASTDIR ) ;
  
  return if $dialog->ShowModal == wxID_CANCEL;

   my $dir = $dialog->GetPath ;

   $dir =~ s/[\\\/]+/\//gs ; # this is weird, but whatever

   push(@INC , $dir) ;

   Wx::MessageBox("Path Added:\n$dir", "\@INC -> New PATH", wxOK | wxI
+CON_INFORMATION, $this );
}
[download]

MJD says you can't just make shit up and expect the computer to know what you mean, retardo! I run a Win32 PPM repository for perl 5.6x+5.8x. I take requests. ** The Third rule of perl club is a statement of fact: pod is sexy.